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ABSTRACT 


This  report  presents  a  description  of  several  related  IBM- 7090  Fortran 
computer  programs  designed  to  provide  a  fast,  accurate,  and  systematic 
procedure  for  determining  initial  conditions  to  the  differential  equations  of 
motion  from  tracking  data,  lunar  and  interplanetary  trajectories  in  n-body 
space,  and  satellite  ephemeris  compilations. 

The  theory  and  analytical  formulation  for  each  program  is  given  in  detail. 
Instruction  in  program  usage  is  given  with  individual  check  problems  provided 
to  facilitate  operational  proficiency. 

To  verify  the  formulations  the  following  examples  were  used: 

1.  Initial  Condition  Determinations  -  (Data  for  the  asteroid  Leuschnerina 
1935  used  in  form  of  a  check  problem). 

2.  'Trajectory  Computation  -  Lunik  111  Data  (included  in  interim  report). 

3.  Ephemeris  Computation  -  (Data  for  the  asteroids  Pallas  and  Vesta 
used  in  form,  of  a  check  problem). 

In  addition  to  the  above  work,  this  report  also  contains  a  study  of  Lunar 
Trajectories.  The  types  of  trajectories  considered  are: 

1.  Error  Analysis  of  Hyperbolic  Impact  Trajectories. 

2.  Lifetime  of  an  Artificial  Lunar  Satellite. 

3.  Lunar  Circumnavigation  and  Earth  Return. 
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I.  INTRODUCTION 


This  report,  which  represents  the  final  report  on  contract  AF  19(604)-5863, 
is  intended  to  cover  only  that  work  performed  between  July  I960  and  June  1961. 
All  work  prior  to  this  period  has  been  given  in  an  interim  report.  *  All  re¬ 
marks  made  in  the  interim  report  concerning  restrictions  and  assumptions 
pertaining  to  uncertainties  in  the  physical  constants  employed  and  the  resulting 
effects  on  the  accuracy  of  the  computations  are  applicable  to  this  report. 

A  computer  program  designed  to  compute  the  trajectories  of  a  body  in 
the  combined  gravitational  field  of  the  Earth,  Sun,  and  Moon,  using  true 
ephemerides  of  the  positions  of  these  bodies,  has  been  operational  for  some 
time.  It  is  described  in  the  interim  report.  *  This  program  has  been  extended 
to  include  the  major  planets  and  is  known  as  the  "n-body  interplanetary  tra¬ 
jectory  program"  (n  =  9).  The  formulation  of  the  equations  of  motion  and  the 
numerical  integration  techniques  used  are  discussed  in  detail  in  the  interim 
report.  The  main  features  and  operational  procedures  are,  however,  included 
in  Appendix  A  of  this  report. 

Such  a  program  is  of  great  value  in  the  computation  of  theoretical  tra¬ 
jectories  and  orbits  in  which  assumed  sets  of  initial  conditions  are  employed. 
However,  employment  of  tracking  data  obtained  from  various  radar  and/or 
optical  equipments  located  at  a  specific  geographical  location  on  the  earth  will 
require  a  great  deal  of  additional  hand  computation  before  a  "suitable  set  of 
initial  conditions  may  be  derived.  "  This  additional  computation  may  assume 
several  forms  of  which  orbit  determination,  coordinate  transformations. 


*  AFCRL  -  TN  -  60  -  1132  Scientific  Report  No.  1  (AF  19(604)-5863  Lunar 
Trajectory  Studies  and  An  Application  to  Lunik  III  Trajectory  Prediction  - 
Petty,  A.  F,  ,  Jurkevick,  I.;  July  I960. 
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equinox  to  equinox  reductions,  and  compilation  of  ephemeris  tracking  data 
are  prominent. 

These  hand  computations  are  tedious  and  time  consuming.  If  a  sizable 
number  are  required  the  impracticality  of  manual  computation  becomes  in¬ 
creasingly  evident.  To  circumvent  this  problem,  computer  subroutines  have 
been  developed.  These  routines,  used  in  conjunction  with  the  "n-body  inter¬ 
planetary  trajectory  program",  provide  a  high  degree  of  flexibility  in  solving 
diverse  orbital  and  trajectory  problems. 

An  objective  of  this  report  is  to  present  each  program's  analytical 
development  a^id  to  illustrate  its  use  in  augmenting  the  inherent  capability  of 
the  "n-body  interplanetary  trajectory  program.  "  Machine  listings,  together 
with  programming  instructions,  are  given  for  those  with  more  than  .cursory 
interest.  (See  Appendix  B) 

y  ritication  of  the  accuracy  of  these  computer  programs  and  routines  was 
established  by  recomputing  the  orbits  and  trajectories  of  well  known  astronomi¬ 
cal  objects  (asteroids).  In  no  case  were  theoretical  orbits  or  trajectories  em¬ 
ployed  to  test  the  programs. 

In  particular,  extensive  use  has  been  made  of  the  data  for  the  asteroid 
Leuschnerina  1935  in  developing  the  initial  condition  determination  programs, 
both  for  the  two  position  vector  case  and  for  the  three  angular  position  case. 
Also  a  recomputation  of  the  orbits  of  the  asteroids  Pallas  and  Vesta  were  used 
to  verify  the  ephemeris  prediction  accuracy  of  the  "n-body  interplanetary 
trajectory  program.  "  Residuals  obtained  by  comparing  computed  values 
against  tabular  values  as  given  by  the  American  Ephemeris  and  Nautical 
Almanac  is  indicative  of  the  accuracy  achievable. 
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The  computer  program  development  mentioned  above  represents  one  of 
the  two  major  aspects  of  this  contract.  The  other  is  the  employment  of  these 
programs  in  the  study  of  several  classes  of  Lunar  Trajectories.  The  first 
of  these,  a  circumlunar  flight  which  passes  at  a  distance  o.f  7,  000  km  from 
the  Moon  (Lunik  III)  was  described  in  detail  in  the  interim  report.  Here, 
tracking  data  released  through  the  Russian  news  agency  TASS  was  employed 
to  obtain  a  set  of  initial  conditions  to  the  J  Terential  equations  of  motion.  A 
second  circumlunar  flight  initiating  from  the  Atlantic  Missile  Range  (AMR) 
was  also  studied  in  some  detail  and  the  results  are  included  in  this  report. 

Such  constraints  as  range  safety  limits,  launch  time,  and  booster  limitations 
were  considered  as  well  as  the  usual  two  point  boundary  value  constraints. 

The  effect  of  some  of  these  constraints  is  indicated.  "v 

A  major  effort  was  given  to  the  determination  of  initial  condition  error 
sensitivities  for  "Hyperbolic  Lunar  Impact  Trajectories."  Nominal  impact 
trajectories  were  established  on  three  separate  dates  and  error  tubes  ob¬ 
tained.  No  attempt  was  made  to  artificially  constrain  the  nominal  trajectory 
to  a  normal  impact.  In  all  cases  the  center  of  the  apparent  lunar  disc  was 
taken  as  the  nominal  trajectories  impact  location. 

The  final  study  involving  the  life  time  of  a  lunar  satellite  over  extended 
period  of  time  (25  days)  indicates  the  perturbative  effects  of  the  earth  and 
sun  on  the  orbital  elements.  The  instantaneous  perturbations  of  the  elements 
as  a  function  of  time  are  presented  for  the  first  ten  (10)  days  of  the  orbit. 

An  interesting  development  arising  from  this  study  is  the  fact  that  for  identical 
initial  conditions  the  life  time  of  the  satellite  in  an  Earth,  Moon,  Sun  field 
exceeds  25  days  (we  did  not  ascertain  the  limit)  while  in  an  Earth-Moon  field, 
the  vehicle  impacts  the  Moon  after  some  9  days. 

This  report  contains  the  results  of  all  of  the  above  mentioned  studies  with 
the  exception  of  the  Lunik  III  trajectory.  Also,  a  few  additional  special  cases 
are  included  in  Section  VIII  of  this  report  to  illustrate  certain  statements  in  the  text. 
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II.  INITIAL  CONDITION  DETERMINATIONS  (GENERAL  CONSIDERATIONS) 


GENERAL  COMMENTS 

In  the  development  of  the  following  computer  programs  two  branches  of 
Astronomy  have  been  used.  These  are  spherical  Astronomy  and  Celestial 
Mechanics.  The  former  is  concerned  with  the  details  of  establishing  precise 
and  practical  coordinate  systems  from  which  observational  or  tracking  data 
can  be  readily  employed  in  the  theoretical  equations  developed  in  the  latter. 

An  attempt  has  been  made  in  this  report  to  follow  the  standard  developments 
found  in  the  Astronomical  texts.  Familiarity  with  these  standard  conventions 
is  assumed.  However,  for  each  routine  or  program,  all  parameters  are  de¬ 
fined  in  terms  of  the  units  used  and  the  direction  in  which  they  are  measured. 
Appropriate  references  are  given  to  the  Astronomical  literature  throughout 
the  discussions. 

A.  INTRODUCTION 

Once  a  set  of  initial  conditions  becomes  known,  the  differential  equations 
of  motion  on  the  n-body  problem  may  be  numerically  integrated.  Such  a  set 
comprises  the  vehicle's  position  and  velocity  vector  at  an  instant  of  time 
relative  to  a  particular  coordinate  system.  It  may  be  determined  at  the  end 
of  thrust  or  at  subsequent  times. 

This  section's  objective  is  to  indicate  methods  for  determining  this  set 
of  initial  conditions  from  observational  or  tracking  data.  Concern  here  is 
with  single  tracking  stations  whose  tracking  equipment  cannot  instantaneously 
measure  or  provide  vehicle  position  and  velocity  vector.  Tracking  situations 
considered  are: 

(a)  Vehicle  position  vector  is  measured  or  known  at  two  instances  of 
time. 


(b)  Vehicle  angular  position  is  measured  or  known  at  three  instances  of 
time,  (no  distance  information  available) 

(c)  Distance  to  tne  vehicle  is  measured  or  known  at  six  instances  of 
time,  (no  angular  information  is  available) 

It  is  to  be  noted  that  in  all  these  tracking  situations,  six  pieces  of  in¬ 
formation  are  obtained.  This  is  a  necessary  and  sufficient  condition  to 
establish  the  required  initial  conditions. 

Situation  (a)  corresponds  to  a  radar  recording  the  vehicle's  range  and 
angular  coordinates.  Situation  (b)  corresponds  to  an  optical  or  infrared 
telescope  recording  of  only  the  angular  positions  of  the  vehicle.  Situation 
(c)  corresponds  to  a  radar  recording  of  only  the  range  to  the  vehicle. 

In  all  cases  it  has  been  assumed  that  the  time  of  each  measurement  is 
accurately  known  as  well  as  the  geographical  position  of  the  tracking  station 
on  the  Earth's  surface. 


B.  DETERMINATION  OF  THE  INITIAL  CONDITIONS  FROM  TWO 
POSITION  VECTORS 

Following  Laplace,  the  position  vector  at  any  time  t  may  be  expressed 
in  terms  of  the  position  and  velocity  vector  at  some  time  t  by 

r  (t)  =  f  r^  -(  g  ro  (1) 


where 


r(t  ) 
o 


-  r(t  ) 
o 


and 


f  ^  1  .  -L  ficTT^  ,  JL(3co  -ZM-  15c7-^)t^-  ±fL(3<j-ZLL-l^)TK.  . 

2  2  24  8 

g  =  ^  UT  4  -i-  n  cr  T  +  —  (9  CO  -  8  u  -  45  cr  )  T  +  .  .  . 

6  4  120 
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Equation  (3)  is  then  solved,  giving  first  approximations  to  X  ,  Y  .  Z  . 

o  o’  c 

These  values  are  used  to  recompute  the  f  and  g  series,  which  in  turn  i- 

•  •  • 

used  in  (3)  to  recompute  better  approximations  to  X^,  Y^,  Z  .  This  pro¬ 
cedure  is  repeated  until  successive  iterations  result  in  velocity  components 
that  differ-  by  less  than  some  prescribed  tolerance. 


C.  DETERMINATION  OF  THE  INITIAL  CONDITIONS  FROM  THREE 
ANGULAlR  POSITIONS 

(Distance  InformUtion  Not  Available) 

Again  following  Laplace,  but  employing  the  entire  development,  com¬ 
putation  of  the  initial  conditions  from  angular  observations  alone  is  possible. 
Generally,  the  Laplacian  method  consist  of- writing  two  equations  in  two  un¬ 
knowns.  One,  the  geometrical  equation,  can  be  expressed  as 


2  2  2 

r  =  P  +  R  .  2  (P  •  R)  P  (4) 

and  the  other,  the  dynamical  equation,  as 

[p  X  p  .  p.j  =  [PxP‘RJ  +  [PxP*rJ  /^3  (5) 

in  w.bich  P  is  the  radius  vector  between  the  observing  station  and  vehicle,  and 
r  ,  the  geocentric  distance  of  the  object  at  time  t.  These  are  the  unknown 
quantities.  The  quantity  R  is  the  geocentric  radius  vector  of  the  observing 
station  and  is  assumed  to  be  known.  The  quantity  P  is  a  unit  vector  directed 
ale  '.g  the  line  from  the  observing  station  to  the  vehicle.  Its  components  are 

the  direction  cosines  '  the  observations  and  together  w'ith  the  components  of 

•  •  • 

P^  and  P^,  enable  evaluation  of  the  triple  scalar  products  in  the  dynamical 
equations. 


For  computational  facility  various  schemes  have  been  advocated.  The 
methods  differ  only  in  the  quantities  taken  as  the  independent  variables.  Thus, 
the  straight  or  original  Laplacian  method  directly  uses  the  magnitudes  of  p  and  r. 
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Leuschner's  modification  uses  P  cos  §  and  j  r  |  as  the  variables,  and  Stumpff 
employes  |  r  1  and  one  of  the  components  of  r  as  the  principal  variables. 

The  quantity  P  cos  8  is  known  as  the  curtate  distance,  and  8  represents  the 
declination. 

We  have  chosen  to  program  Stumpff's  method.  This  method  derives  its 
principal  advantage  from  the  use  of  the  ratios  of  the  direction  cosines  and  the 
reduction  of  all  the  determinants  from  the  third  to  second  order.  In  the  original 
Laplacian  formulation,  all  the  formulas  were  expressed  in  terms  of  third 
order  determinants  which  correspond  to  the  triple  scalar  product.  The  follow¬ 
ing  formulation  of  Stumpff's  Method  has  been  employed.  (See  Herget- 
"Computation  of  Orbits") 


Let 


U 


=  .y  X  =  tan  a  ,  V  =  ^  ^  =  sec  a  tan  8  ,  P  =  Y  -  UX, 

x+  X 


x  +  X 

Q  =  Z  -  VX  (6)  , 

where  the  small  x,  y,  z  are  components  of  the  vehicle  and  the  large  X,  Y,  Z 
are  the  components  of  the  tracking  site  both  referred  to  the  same  geocentric 
equatorial  coordinate  system.  The  latter  are  known  quantities  since  we  assume 
the  geographic  coordinates  of  the  tracking  station  on  the  Earth's  surface  are 
known.  The  quantities  a  (the  right  ascension)  and  8  (the  declination)  are  the 
measured  observables.  Three  sets  a  8  ,  a  8-,  8  of  these  observables 

11  Cs  Ct  3  3 

are  recorded  and  are  the  fundamental  six  pieces  of  information  required  for 
the  trajectory  determination. 


Cross  multiplying  the  equations  for  U  and  V,  introducing  P  and  Q,  and 
differentiating  twice,  obtains 


y 

Ux  -  P 

z  =  Vx  - 

Q 

• 

•  •  • 

•  • 

•  • 

y  = 

Ux  +  Ux  -  P 

z  =  Vx  - 

Vx  -  Q 

•  • 

•  •  •  •  ••  •  • 

•  •  •• 

•  •  •  •  •  • 

y 

Ux  +  ZUx  +  Ux  -  P 

z  =  Vx  - 

2  Vx  +  Vx  -  Q 

(7) 
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Substituting  the  dynamical  conditions  for  each  component  of  r  - 
into  the  two  bottom  equations  of  (7)  obtains 


•• 

-  Ux  +  Ux  =  —  P  +  - - 

2  2  2 


••  O 

-  Vx  +  Vx  =  —  Q  +  — ^ 

2  2  2  r3 


(8) 


Let 

1  ••  •  1  ••  i 

D  =  —  UV - V  U 

2  2 

obtaining 

Bx  =  — (PV  -  QU)  +  (P  V  -  QU)  /  2r^ 

2  (9) 

•  1  ••  ••  ••  ••  ••  ••  '3 

Dx  =  —  (QU  -  PV)  ^  (UQ  -  VP)/4r 
4 

2^22  222  22 
r  =x“+y  +z  =(1+U  +  V)X  -  2(UP  +  VQ)  X  4  (P  +  Q  ) 

In  equation  (9)  the  only  unknowns  are  x,  x,  and  r  which  can  be  obtained 
by  a  simple  iteration  between  the  equations.  The  approximate  numerical 
values  of  the  coefficients  at  time  t^,  the  time  of  the  middle  observation,  may 
be  obtained  from  the  observations  by  writing  a  Taylor's  series  for  the  first 
and  third  observations  as 

W  =  W  +  W  T+-L  w  T^4. 

1  o  o  1  2  '  '  '  ’ 

W,  =  W  4  W  T,  4  i 

3  o  o  3  2 

which  may  be  written  in  the  form 


o  1 


W  T,  +  .  .  .  . 
o  3 


(10) 
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=  (W.  1) 


*  1  ** 

(W  -  W  )  T  =  W  +  -^  W  T, 

1  o  1  0  2°^ 

(W,  -  W  )  T,  =  W  +  J-  W  T,  =  (W.  3) 

3  o  3  0  2  ^^ 

and  then 

W  (T_-T,)  -  T,  (W,  1)  -  T.  (W.3) 
o  i  J.  ,1  i 

1  W  (T  -  TJ.  =  (W,  3)  -  (W.  1) 

2  0  3  1 

where  W  denotes  U,  V,  P  or  Q  and  T,  =  (t,  -  t  ),  T_  =  (t_  -  t  ).  Thus, 

1  1  o  3  3  o 

all  coefficients  can  be  determined  from  the  observations,  and  equations  in 
(9)  solved.  With  the  solutions  from  (9),  (7)  may  be  employed  to  obtain  the 
other  components  of  the  vehicle's  position  and  velocity  vectors  at  time  t^. 
Initial  conditions  are  thus  obtained. 

The  value  of  D  is  the  controlling  factor  of  the  entire  solution.  This 
corresponds  to  the  coefficient  of  p  in  the  left-hand  member  of  (5).  If  ex¬ 
tremely  small,  it  indicates  the  time  interval  between  measurements  is  too 
small  to  make  the  solution  very  determinate.  Also,  it  is  easy  to  see  that 
difficulties  will  arise  in  employing  this  method  when  observations  exist  in 
the  neighborhood  of  6^  or  18^  right  ascension,  due  to  the  large,  or  even 
meaningless,  values  obtained  for  the  derivatives  of  U.  Methods  for  circum¬ 
venting  this  problem  are  currently  being  considered  e.  g.  ,  rotating  the  coordi¬ 
nate  system  by  a  fixed  amount,  though  this  will  probably,  only  shift  the  problem 
to  the  Vs  for  observations  near  the  celestial  pole. 

Employing  more  than  three  observations  will  aid  in  alleviating  this 
problem.  This,  however,  is  an  entirely  different  computation  involving 
differential  correction  procedures  and  will  not  be  discussed  here. 
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D.  DETERMINATION  OF  INITLA.L  CONDITIONS  FROM  SIX  RADAR 
RANGE  MEASUREMENTS 


(Angular  Information  not  available) 

Initially,  it  appears  that  the  initial  conditions  could  be  obtained  from  six 
radar  measurements  employing  a  line  of  reasoning  similar  to  that  used  for 
two  range  vectors. 

The  observing  site,  the  vehicle,  and  the  dynamical  center  are  connected 
by 

(11) 

as  shown  in  the  following  sketch 


V  ehicle 

1.2,  3.. 


.6, 


From  the  law  of  cosines 


2  „  2  2 
r  =  R  +  p 
n  n  n 


2  R  •  p 
n  n 


(12) 


Recall  now  that  in  Laplace's  method 


r  =  f  r  +  g  r 
n  •  no  no 


(13) 


From  (13)  it  follows  directly  that 


2  2 

r  =f  r2  +  2fgr 
n  no  n  n  o 


2.2,2,^  2^2 

+  g  r  =(f  4  2fgo-+g  oi)  r 

no  n  n®n  n  o 


(14) 


where  o" and  w  are  defined  as  for  the  case  of  two  range  vectors.  The  same 

holds  for  the  f  and  g  series, 
n  °n 
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R  as 

Tx 


It  is  further  convenient  to  express 


2  (r  -  R  )  •  (R  )  =  2  "r  •  R  -  2  R  ^  (15) 

n  n  n  n  n  n 

Employing  now  (4)  and  (5),  in  (2)  obtains 

C  =  p"-R"  =  (f^  +  2f  ga  +  g^aj)r^-2fXx  -  2f  Y  y  -2fZz 
n  n  n  n  n  n  n  o  nno  nno  nno 

(16) 

-  2g  X  X  -  2g  Y  y  -  2g  Z  z 
°n  n  o  nno  nno 


R 

n 


In  the  above,  X  ,  Y  ,  Z  are  the  rectangular  components  of  the  vector 
n  n  n 

at  the  corresponding  time  t  at  which  the  rang  is  measured. 


Using  obvious  definitions,  it  is  convenient  to  write  equations  (16)  as 
follows: 

z  •  •  • 

a  r  +a  x  +a  y  +a  z  +a  x  +a  y  +a  z  =C 

nl  o  n2  o  n3  o  n4  o  no  o  nb  o  nl  o  n 


(17) 


n 


1, 2,  3,  ...  6 


A  few  remarks  are  pertinent  with  respect  to  this  set.  The  unknown 

•  •  • 

Quantities  are  x,y,z,x,y,z,  and  r  although  the  latter  is  given 
*  o  ooo  oo  o 

2  2  2  2 

by  r  =  X  +  y  +  z  .  The  coefficients  a  .are  not  really  known,  although, 
o  o  o  o  ni 

an  approximation  to  these  is  available  by  taking  first  terms  in  the  f  and  g 
series. 

It  is  apparent  that  if  r  is  included  among  the  unknowns  seven  measure- 

o 

ments  instead  of  six  are  needed.  On  the  other  hand,  a  better  approximation 
of  f^  and  g  can  be  obtained  by  taking  two  terms  in  these  series.  This  is, 
however,  equivalent  to  estimating  r  .  If  this  is  the  adopted  procedure,  only 
six  measurements  are  required. 
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The  computational  scheme  is  then; 


The  input  data  are  the  six  values  of  measured  range;  an  estimate  of 

r  ;  X  ,  Y  ,  Z  :  sidereal  time;  six  values  of  time  at  which  the  measurements 
o  o  o  o 

are  taken;  and  the  rotation  rate  of  the  Earth. 


F;rom  the  above  the  coefficients  a  ,  are  estimated  and  set  (17)  is  solved. 

ni 


This  results  in  quantities 


2  2  2 
(x  +  y  +  z  ) 
o  o  o 


•  2  *2  •  2 
V  =  (x  +  y  +  z  ) 
o  o  o  o' 


1/2 


From  these,  better  estimate  oi  ^J. ,  cr  and  u  are  obtained  entering  the  f 

n 

and  series.  Using  these,  the  whole  procedure  is  repeated  until  the 
desired  precision  is  obtained. 


INITIAL  CONDITION  DETERMINATIONS  (COMPUTER  ROUTINES) 


Section  II  presented  the  motivation  behind  the  need  for  tracking  sub¬ 
routines.  Summarizing,  the  purpose  of  tracking  subroutines  is  to  yield 
initial  conditions  required  to  initiate  numerical  integration  of  the  differential 
equations  of  the  n-body  problem. 

Basic  ideas  and  computational  formulas  involved  in  the  three  chosen 
routines  were  outlined  in  Section  II.  In  the  present  section,  detailed  step-by- 
step  procedures,  as  programmed  for  the  computer  are  given.  In  all  three 
cases,  however,  discussion  is  more  extensive  than  that,  prepared  for  computer 
use,  reflecting  the  programs  evolution.  The  entire  development  will  be 
included  since  many  procedures,  though  not  employed  in  final  computational 
programs,  can  be  of  interest  to  the  user  willing  to  effect  personal  modifica¬ 
tions. 

It  should  be  noted  that  one  of  the  three  tracking  schemes  considered  in 
this  report  proves  unsuitable  for  numerical  co.  sputations.  Reasons  for 
failure  of  the  routine  employing  six  ranges,  measured  from  a  single  trac)’  .ng 
station,  will  be  discussed  later. 

The  first  tracking  scheme  to  be  described  employs  the  vehicle's  three 
measured  angular  positions. 

A.  DETERMINATION  OF  THE.  INITIAL  CONDITIONS  FROM  THREE 

ANGULAR  POSITIONS 

This  tracking  method's  purpose  is  to  compute  the  components  of  the 
vehicle's  position  and  velocity  at  some  time  t  from  measurements  of  its 
right  ascension  and  declination  at  three  instants  of  time.  It  is  assumed  that 
if  the  measured  quantities  are  azimuth  and  elevation,  they  are  transformed 


into  the  corresponding  right  ascension  and  declination  by  methods  outlined 
in  Section  IV.  It  is  further  assumed  that  these  methods  are  employed  to 
prepare  all  measured  data  and  auxilie.ry  quantities  for  computations. 

It  must  be  emphasized  that  ail  tracking  methods  described  in  this  report 
yield  preliminary  values  of  initial  conditions.  The  significance  is  that  a 
minimum  of  data  is  used  to  effect  the  computation.  Consequently,  no 
provisions  are  made  to  accept  redundant  data  to  obtain  a  better  estimate  of. 
the  desired  quantities.  Standard  differential  correction  procedures  can  be 
used,  eg.  maximum  likelihood  estimation,  or  the  conventional  least  squares 
method  once  the  initial  preliminary  trajectory  is  obtained.  Their  inclusion 
in  this  report  is  omitted  as  they  v.ere  not  considered  a  part  of  the  study. 

Initial  estimates  are  based  on  a  two  body  problem  where  the  vehicle 
moves  in  the  immediate  neighborhood  of  some  dominant  mass.  The  latter 
will,  in  most  cases,  be  the  Earth. 

It  can  be  seen  from  Figure  1  that  an  astronomer  usually  considers  the 
distances  Observer Vehicle  and  Observer ->  C enter  of  Force  positive. 

For  purposes  of  this  report  it  was  found  more  convenient  to  measure 
distance  Center  of  Force  — ^Observer  as  positive.  Distance~r  is  in  both  cases 
measured  positively  from  the  center  of  the  force. 

The  new  definition  of  the  sign  of  R  will  result  in  expressions  slightly 
different  from  those  in  the  previous  section.  For  this  reason,  the  development 
of  Stumpff's  method  is  repeated.  The  choice  of  this  particular  method  was 
discussed  in  Section  II. 

1.  Determination  of  the  Initial  Conditions  from  Three  Angular  Positions 
From  Figure  lb,  it  can  be  seen  that  the  observer's  position. 
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OBSERVER 


VEHICLE 


CENTER  OF  FORCE 


(a)  Astronomical  convention 


CENTER  OF  FORCE 


(b)  Convention  employed  in  the  report 


Figure  1.  Relation  Between  the  Observer,  Vehicle  and  Center  of  Force 
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the  vehicle's  geocentric  position,  and  position  of  the  center  of  force  are 
related  by 

r  =  p  +  R 


(1) 


p  =  r  -  R 


In  appropriate  rectangular  components  this  is; 


^  -  p  cos  8  cos  a  =  X  -  X 


77  =  p  cos  8  sin  a  =  y  -  Y 


i  -  p  sin  8  =  z  -  Z 


(2) 


Employing  the  latter  expressions  define 


U  =  TAN  a  =  — : - 

X  -  X 


z  -  Z 

V  =  SEC  a  TAN  5  =  - 

X  -  X 


(3) 


These  equations  yield  in  an  obvious  manner 


Ux  -  UX  =  y  -  Y 
Vx  -  VX  =  z  -  Z 


(4) 


or 


Y-UX=y-Ux=P 
Z  -  VX  =  z  -  Vx  =  Q 


(5) 
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The  last  equations  can  be  rewritten  as 


y  =  P  +  Ux 
z  =  Q  +  Vx 


(6) 


In  the  above,  it  must  be  noted,  a  and  S  are  measured  in  the 
coordinate  system  fixed  at  the  observer's  site.  The  components  of  R  can 
always  be  found  as  soon  as  the  location  of  the  tracking  station  and  the  time 
of  m.easurement  are  known  Both  a  ,  S  and  X,  Y,  Z  must  be  _referred  to  the 
same  coordinate  system.'  It  is  recommended  that  some  standard  coordinate 
system  be  adopted,  e.  g,  ,  that  referenced  to  the  mean  equinox  of  1950.  0. 


Differentiating  equations  (6)  obtains 


y  =  Ux  +  Ux  +  P 


y  =  Ux  +  2Ux  +  U*x*  +  P 


z  =  Vx  +  Vx  +  Q 

(7) 

*z  =  Vx  +  2Vx  +  Vx  +  Q 


Note  the  equations  of  motion  of  the  vehicle  in  the  gravitational  field  of  the 
dominant  mass  are  given  by 


X  = 


(8) 


In  these  equations,  units  are  chosen  in  such  a  way  that  the  constant  k 
appearing  normally  in  (8)  is  equal  to  unity. 


Employing  equations  (8)  in  (7)  it  follows  that 


1  ••  •  . 

-  Ux  +  Ux  .= 

2 


—  Vx  +  Vx  =  -  *Q - — 

2  2  2r^ 


(9) 
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Solution  of  system  (9)  for  x  and  x  yields 


(10) 


Define  the  following  quantities 


_  !•••  1  ••• 

D  =  —  UV - VU 

2  2 


By  virtue  of  equation  (11),  x  can  be' rewritten  as 


A 

B 

D 

2D 

(11) 
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Defining  quantities 


(1  ....  1 
_  U  Q  -  —  P  V  j 


/I  • .  1  . « 

[  -  Q  U - P  V 

\  2  2  , 


X  can  be  written  as 


X  -  ^ 


D  2D  r" 


Finally  r  can  be  expressed  in  terms  of  x  using  equations  (4). 


Thus 


r^  =  x^  +  =  x^  +  (P  +  Ux)^  +  (Q  +  Vx)^ 


r^  =  ^  1  +  j  x^  +  2  (PU  +  QV)  x  +  ^  P^  + 


Defining 


2  2 

C  =  1  +  U  +  V 


E  =  2  (PU  +  QV) 


F  =  P^  + 


r  can  be  expressed  as 


2  2 

r  =  Cx  +  Ex  +  F 


Equations  (10),  (12),  and  (13)  represent  a  system  of  simultaneous 
equations  in  x,  x,  and  r.  Now,  x  and  r  are  solved  by  (10)  and  (12),  employing  any 
convenient  numerical  procedure.  Once  r  is  available,  x  follows  from  (12). 

Other  components  of  the  position  and  velocity  follow  from  equations  (6)  and  (7). 

The  development  of  Stumpff's  method  will  be  concluded  by  giving, 
without  proof,  two  infinite  series  frequently  occuring  in  orbit  determinations 
of  the  type  considered  in  this  report. 

These  are  the  f  and  g  series  of  the  Laplacian  method  of  orbit 

computation.  The  simple  idea  behind  these  series  is  as  follows.  Suppose  that 

position  r  and  velocity  r  of  the  vehicle  are  known  at  some  time  t  .  The 
o  o  o 

motion  of  the  vehicle  in  the  neighborhood  of  this  point  can  then  be  expressed 
as 


r  =  r  +  T  r  + 
o  o 


T  /  2  I  r 


(14) 


and 


r 


Successive  differentiation  of  the  last  equation  permits  elimination  of  higher 
order  derivatives  in  (14).  It  can  be  shown  that  as  a  result  of  this  procedure 
equation  (14)  assumes  the  following  form 


r  =  f  r  +  g  r 
o  o 


(15) 


1 


where 


1  2  1  3  ^tl3<x)-2/i-15cr 

f  ^  1  -  -  u  T  '  +  -  u.  a  T  +  - J ^ - 

2  2  24 


/xcr  \36j  -  Z  fj. 
_ 


-7.0 

_ i..—  T 


/  2 
^630co  -420m  -945  .  y. 


2  2 
22  M  -  66  M  “  +  45 


6 

T  +  .  . 


1  3  M«^  4  .-45  . 

g  =  T - fJ.  T  t-  -  T  +  - 

6  4  120 


^6<iJ  -f 


M<^l6<iJ-5M-14.  y  ^ 

-  T  +  .  . 

24 


r  .  r 
o  o 


r  ,  r  r  ,  r 

o  o  o  o 

.  =  .  CO  = 


Terms  higher  than  X  become  too  complicated  for  practical  purposes.  Note  that 

T  =  t  -t  is  expressed  in  the  appropriate  units  of  time, 
o 

Use  of  f  and  g  series  is  subject  to  the  usual  limitations  of 
convergence.  If  any  doubt  exists  concerning  the  latter,  it  is  better  to  use  the 
closed  form  of  the  series  in  question.  The  appropriate  expressions  can  be 
found  in  Reference  (1)  pp.  48  or  75. 


It  is  unlikely  that  in  problems  considered  in  this  report  the  need  for 
closed  forms  will  ever  appear. 


t 


The  procedure  written  for  the  connputer  is  based  on  the  above 
developnrient  and  it  is  summarized  in  a  step  by  step  form  below: 


Measured  Data  and  Site  Coordinates 


Right 

Ascension 

Rectangular  Components 

of  Site 

Time  and  Date 

Declination 

X 

Y 

Z 

t. 

Q.  , 

8  , 

Z, 

1 

1 

1 

1 

1 

1 

t 

a 

S 

X 

Y 

Z 

o 

c 

o 

O 

o 

O 

•  t 

o.  « 

8 

X., 

Y., 

z.. 

3  ■ 

3 

3 

3 

3 

3 

In  the  above,  units  of  distance  and  time  should  be  taken  in 
accordance  with  the  rules  outlined  in  Section  IV.  The  procedures  of  this 
chapter  also  determine  the  site  coordinates. 


2.  Computer  Program 

The  computation  then  proceeds  as  follows: 

I.  Compute 

TAN  a .  =  U. 

1  1 


SEC  a.  P.  =  Y.  -  U.  X 

1  1111 


TAN  S.  Q.  =  Z.  -  V.  X. 

1  1111 


SEC  a.  TAN  S .  =  V. 

1  11 


i  =  1.  0,  3 
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n.  Compute 


=  -'o) 

’•S  =  (‘3  -  ‘o) 


The  value  of  k  is  the  reciprocal  of  the  time  unit  employed  for 
the  particular  problem. 

In  any  modification  of  the  Laplacian  method  of  preliminary  orbit 

determination,  it  is  desirable  that  intervals  t,  -  t  and  t.,  -  t  be  nearly 

1  o  3  o 

equal.  It  can  be  shown  that,  under  these  conditions,  errors  in  numerical 
derivatives  and  accelerations  of  U,  P,  V,  Q  are  of  the  second  order. 


III.  Compute  the  following  quantities 


(U,  1)  = 


(V,  1)  = 


(P,  1).= 


(Q.  1) 


u,  -  u 

1  o 


^  1 

■\r 

V 

1 

0 

^1 

p,  - 

p 

1 

.  0 

•  ^1 

- 

Q 

1 

0 

(U,  3)  = 


(V,  3)  =  - 


(P,  3) 


U3  -U 


V  -  V 
3  o 


■  ■^3 
-  P 

3  o 


(Q,  3)  = 


Q-  -  Q 

3  o 


IV.  Compute 


^  (U.  1)  -  r  (U.3)  ,  T,  (P,  1)  -  T,  (P,  3) 

U  = - ,  P  =  - r - - - 

o  o 


T  T 

3 


^3  - 


r-  (V.  1)  -  r,  (V.  3)  t.  (Q,  1)  -  r.  (Q,  3) 

V  =  — 1 - 1 -  .  Q  =  ^ - 

o  o 


T3  - 


T  -  T 

3  1 


V.  Compute  quantities 


J_  u  = 

2  °  r  -  r 

3  1 


i-P 


(P,  3)  -  (P.  1) 


3  1 


L.  V  =  (V.  3)  -  (V.  1) 

2  °  T  .  T 

3  1 


J_  ^  ^  (Q.3)  -  (Q,  1) 

2  °  T 

3 


VI.  Compute  the  quantities 


!•••  1««. 

(a)  D  =  - UV - VU 

2  °  °  2  °  ° 


(e)  E  =  2  (p  U  +  Q  V  ) 
\  o  o  oof 


(b) 


(c) 


/  I  ••  •  I  ••  •  \ 

A=-(  -  PV  - - QU  ) 

\  2  °  °  2  ° 

B  =  -  '  ^  V  -  Q  U 

00  oof 


(f)  F  =  P^  + 

o  q 


(d)  C  =  I  +  U  +  V 
o  o 


(g)  G=-(  —  Q  —  U  -  — P  —  V 
\  2  °  2  °  2  °  2  ° 

(I  ••  1  \ 

-  Q  U  -  _  P  V  ) 

00  2  °  °/ 


-25- 


VII.  Form  the  following  equations 


(a)  X 


(b) 


2 

r 


C  X 


+  E  X  +  F 


(c)  X 


G  ^  Jj_ 
D  2D 


VIII.  Solve  (a)  and  (b)  of  step  VII  simultaneously  for  x  and  r. 

Designate  desired  solutions  by  x  and  r  . 

o  o 


For  the  case  of  vehicles  moving  in  the  Eartli's  vicinity 
r^  >  1  in  units  of  the  Earth  equatorial  radius.  Generally,  equations  (a)  and  (b) 
may  result  in  three  values  of  r.  One  is  the  desired  one,  the  second  represents 
the  position  of  the  center  of  force,  and  the  third  is  entirely  spurious. 


IX.  Using  the  value  of  r^  obtained  in  step  VIII  compute  x^  from 
equation  VII.  (c) 


G  H  1 

x  =  -  +  -  .  - 

o  3 

D  2D  r 

o 


X.  Compute 


y  =  P  +  U  X 
o  o  o  o 


y  =  Ux  +  U  X  +  P 
o  o  o  o  o  o 
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z  =  Q  +  V  X 
o  o  o  o 


z  =  V  x+V  x+Q 
o  o  o  o  o  o 


If  the  intervals  of  time  between  measurements  are  equal,  the 


computed  values  of 


X  ,  y  ,  z 
o  o  o 


X  ,  y  ,  z 
o  o  o 


refer  to  the  time  of  middle  measurement. 

These  values,  expressed  in  suitable  units,  are  then  employed 
as  the  initial  conditions  in  the  n-body  Trajectory  Program.  If  redundant  daca 
are  available,  preliminary  values  are  used  to  initiate  a  differential 
cr'rrection  program. 

The  following  computation  has  not  been  programmed.  It  is 
included  so  that,  if  desired,  it  can  be  employed  as  a  check  on  the  quality  of 
computation. 


For  times  t^^  and  t^  compute  values  of  f  and  g.  In  employing 


these  values 


’'l  =  ’'o  +  Si 


I 


and 


’‘s  =  S  *o  +  S3 


Yj  =  S  Yo  t  63 


=  {.  z  •f-2^z 
3  3  o  ,  3'  o 


Since  positions  of  the  observer  at  times  t^  and  t^  are  known,  it  is  possible  to 
compute 


"1-^1 


^1-^1 


1-^1 


X3.-X3 


•  ^3-^3 


^3-^3 


Using  these  compute  a^,  8^  and  ay  8^  from 


TAN  a  ^  = 


"1-^1 


:  SEC  aj  tan  = 


Xf  -Xi 


and  similar  expressions  at  t  =  t^. 
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The  computed  values  of  a^,  8^,  a^,  8  ^  should  be  in  reasonable 

agreement  with  the  observed  ones.  Failure  to  achieve  agreement  may  be  due 
to: 


(a)  Error  in  computation 


(b)  Too  long  or  too  short  a  time  interval 


(c)  Original  observations  too  inaccurate 


etc. 


This  concludes  the  discussion  of  the  first  tracking  method. 

B.  DETERMINATION  OF  INITIAL  CONDITIONS  FROM  TWO  POSITION 
VECTORS 

This  section  describes  a  procedure  for  determining  velocity  components 
of  vehicle  movement  in  the  Earth's  gravitational  field  from  measurements  of 
the  distance  and  two  associated  angles  at  two  different  times. 


In  analysis,  the  technique  offers  a  fast  and  accurate  computer  solution  to 
establishing  the  complete  initial  conditions  at  some  time  t. 


Laplace's  method  shows  that  position  r  ,  at  any  time  t,  of  an  object 

traveling  in  a  Keplerian  orbit,  can  be  expressed  as  a  function  of  the  position 

r  and  velocity  r  at  some  time  t  ,  according  to 
o  ^  o  o  ^ 


=  f 


+  g 


(A) 


where  f  and  g  are  scalar  functions  of  the  position  and  velocity  at  time,  t  and 

the  time  interval  t-t  .  Since  r  and  r  are  specified  if  two  range  and  two 

o  o 
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angular  coordinates  are  observed  at  time  t  and  t  ,  the  velocity  r  may  be 
determined  from  (A),  if  f  and  g  are  known.  Fortunately,  for  time  intervals 
between  observations  of  practical  interest,  functions  f  and  g  are  represented 

by  rapidly  converging  infinite  series  whose  first  dominant  terms  are  functions 

.  -X 

of  position  r  and  the  time  interval  t-t  ,  but  not  of  the  velocity  r  .  Thus, 
o  o  o 

good  first  approximations  of  f  and  g  are  known,  though  the  initial  velocity  is 
unknown. 


The  method  described  in  this  section  is  based  on  the  above  facts.  The 
initial  velocity  r^  is  evaluated  from  Equation  (A)  after  f  and  g  have  been 
approximated.  This  first  approximation  in  velocity  is  used  to  recompute  f 
and  g,  giving  a  better  estimate  of  velocity.  The  procedure  is  repeated  until 
desired  precision  is  obtained.  It  is  apparent  the  computation  is  iterative 
in  which  good  initial  estimates  of  the  initial  velocity  components  are  not 
required.  In  fact,  because  of  the  very  nature  of  the  f  and  g  series,  the  first 
approximations  are  quite  satisfactory. 


1.  Determination  of  Equatorial  Position  Coordinates  From  Range, 
Azimuth  and  Elevation 

Figure  2  shows  the  position  of  the  observed  object  in  the  coordinate 

A  A  A 

system  fixed  at  the  radar  site.  Let  tj  ,  C  be  the  unit  vectors  along  the 
respective  axes,  A-azimuth  and  E-elevation.  Then  the  vector  "p  from  the 
observing  station  to  the  object  is  given  by 


A 


P  -  P  \  cos  E  cos  A  ^  +  cos  E  sin  A  tj  +  sin  E  f 


(18) 


Figure  3  shows  that  the  position  vector  of  the  observing  station  is 


given  by 


R  =  R  cos<^'cos0i 

X 


A  A 

+  costi  sin0  i  +  sin  cb'  i 

y 


(19) 
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A  A  /N 

where  i  ,  i  ,  i  are  the  unit  vectors  in  the  inertial  geocentric  cartesian 
X  y  z 

coordinate  system  and  <p'  and  0  are  the  geocentric  latitude  and  local 
sideral  time  (expressed  in  angular  measure)  of  the  site,  respectively.  The 
latter  quantitites  are  computed  according  to  the  rules  given  in  the  chapter  on 
conversion  routines. 


Rotation  of  the  x,  y,  z  coordinate  system  through  an  angle  ©  about 
the  z  axis,  and  through  an  angle  <f!  about  the  y'  axis,  results  in  the  following 
expression.  » 


Let 

cos4-'  cos  0  =  L 

cos  <P'  sin  6  =  M 
sin<^’  =  N 


then  the 


unit  vectors  are  related  by: 


A 


A  A 

+  Mi  +  Ni 

y  z 


A 

V 


M 


A 

i  + 


2  2 
L  +  M 


V 


2  2 
L  +  M 


A 

i 

y 


(20) 
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A 

;  = 


NL 


A 

i 


NM 


V 


2  2 
L  +  M 


2  2 
L  +  M 


+1^^  +  M^'i_  (20) 


Using  (20)  in  (18): 

( 


p  =  p 


L  sin  E 


M 


V 


cos  E  sin  A 


NL 


2  2 
L  +  M 


cos  E  cos  A 


2  2 
L  +  M 


i 


+  (  M  sin  E  -i- 


cos  E  sin  A  - 


NM 


cos  E  cos  A  ji 


^  N  sin  Ex 


2  2 
L  +  M 


V 


2  2 
L  +  M 


2  2 
in  E  X  VL  !  M  cos  E  c 


^  1 
osAj  i^J 


From  Figure  lb. 


_fc.  A  A  A 

r  =  P  +  R  =  xi  +yi  +  zi_ 
X  y  3 


Thus,  previous  expressions  yield 


x=RL+  /OILsinE- 


M 


cos  E  sin  A  - 


NL 


2  2 
L  +  M 


cos  E  c 


2  2 
J.  +  M 


os  A^ 


y=RM+  P  [MsinE  + 


cos  E  sin  A 


NM 


(n 


2  2 

z  =  RN  +  p  i  N  sin  E  +  VL  +  M  cos  E  cos  A 


¥ 


2  2 
L  +  M 


cos  E  cos  A 


2  2 
L  +  M 


) 


To  obtain  the  geocentric  rectangular  coordinates  of  the  object  referred 
to  the  equinox  of  date,  range,  azimuth,  elevation,  geocentric  site  latitude  and 
sidereal  time  are  needed. 


-32- 


If  the  computation  is  to  proceed  with  respect  to  some  other  equinox,  x, 
y,  and  z  must  be  transformed  according  to  the  rules  given  elsewhere  in  this 
report. 

This  need,  however,  will  be  ignored  for  the  present. 

'  2.  Determination  of  the  Initial  Conditions  from  Range,  Azimuth  and 

Elevation  Measurements 

Since  m.otions  in  the  Earth's  immediate  vicinity,  over  relatively 
short  spans  of  time,  are  being  considered,  it  is  permissible  to  consider  the 
object's  path  as  a  Keplerian  Orbit.  The  latter  is  completely  specified  by  six 
independent  quantities,  e.  g.  ,  six  orbital  elements,  six  angular  sightings  of 
the  position,  three  position  and  three  velocity  components  at  any  time,  etc. 

In  this  problem,  the  tracking  instrument  supplies  the  range  and 
angular  data.  Thus,  two  such  observations  at  different  times  are  sufficient 
to  specify  the  orbit.  However,  since  the  n-body  Trajectory  Program  requires 
position  and  velocity  components  as  inputs,  the  above  measurements  must 
be  made  to  yield  velocity  components  at  some  time  t  as  well. 

From  the  previous  section,  two  observations  yield  x,  y,  z  at  two 
different  times. 


Following  Laplace,  the  position  vector  r  at  time  t  is  expressed  as: 


r  (t)  =  £  +  g 


(21) 


Development  of  this  result  was  discussed  in  Scientific  Report  No.  1, 
and  is  found  in  references  (1)  and  (2). 
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In  expression  (2 1);  r  =  r 

o 


,  ,  1  2  1  3  M  (3  oj -2  H -15  -.4  M  o-  (3  -2  M  -7 

t  =  1  -  -  /X  T  +  -  jj.  a  T  +  - * - —  -  - ^ - 

2  2  24  8 

+  — —  (630  -420^.  -945  <T^)  -  {  22  /x^  -66  m +45  ^  )  "^^  + _ 

720  •  .  J 


1  3  /xcr  4  M  (  9  -8 /X  -45  o-  )  5  /x  a(  6^  .5/x  _14ct) 

g=r - pT  +  -  r  +  - 1 - L_  T  _  - i - f  r  ^  ^  ^ 

6  4  120  24 


where 


r  .  r 
o  o 


T  =  k  ( t  -  t  ) 
o 


Depending  on  the  object,  it  is  convenient  to  express  Idistances  in  astronomical 
units  and  time  in  58.  13244  days,  or  'distance  in  Earth  radii  and  time  in  units  of 
806.  9275  seconds. 

The  procedure  used  was  outlined  in  Section  II  and  repetition  is 
unnecessary. 
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3.  Computer  Program 


A  step-by-step  outline  of  the  computer  solution  is  given  below.  Note 
that,  in  the  final  computer  program,  azimuth  and  elevation  are  not  directly 
used  but  are  first  transformed  to  right  ascension  and  declination  referred 
to  a  suitable  equinox. 

I.  Input  data: 

.  P  X  ,  Y  ,  Z  A  E  t 
o  o  o  o  o  o  o 

p  ]  ^1*  Yj.  Z.  A,  t^ 

a  ,  S  ,  a  ,  S  ,  are  obtained  from  A  E  ,  A.,  E 

o  o  1  1  o  o  r  1 

II.  Compute 


X  =  X  +  p  cos  i>  cos  a 
o  o  o  o  o 


y  =  Y  +  p  cos  S  sin  a 
o  o  Q  o  o 


z  =  Z  +  p  sin  i 
o  o  o  o 


Ill.  Compute 


r 

o 


M  = 


2  2  2 
X  +  y  +  z 


1/2 


X  -  X  +  P  cos  5  cos 
11  1  i’  1 

+  P  J  cos  8^,  sin  a.  1 

P  sin  Sj 


-35- 


IV.  Compute 


f  =  1 


1  3 

=  T._  UL  T 


V.  Compute 


X  = 

o 


(X  -_fx^) 


^0  = 


-(y-V 


—  (  z  -  fz  ) 
g  o' 


VI.  Compute 


-1^  .2  .2  .2 
r  .r  =x+v+z 
o  o  o  o  o 


VII.  Compute  f  and  g  using  complete  equations  (22)  and  (23). 


VIII. 


Return  to  Step  V.  and  compute  new  x  ,  y  , 
the  entire  procedure. 


z  . 

o 


Repeat 
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IX.  Compare  velocity  components  computed  at  each  step  with  the 
corresponding  velocity  components  obtained  in  the  previous  step. 

-8 

When  differences  reach  a  value  of  less  than  e  =  4  x  10  in 
appropriate  units,  the  iteration  procedure  is  terminated. 

4.  Evaluation  of  the  Method 

The  evaluation  of  the  computational  method  is  summarized  in 
Figure  4  and  5. 

*  A  time  interval  between  observations  of  about  one  minute,  it 
appears,  results  in  the  minimum  error.  When  smaller  intervals  are  used, 
round  off  errors  become  significant.  For  larger  time  intervals  the  f  and  g 
series  become  inaccurate.  Figure  4  indicates  that  for  a  time  interval  between 
observations  of  five  minutes  the  percentage  velocity  error  for  the  lunar 
trajectory  is  .  05  per  cent  corresponding  to  IZ  mph  error.  Increasing  the 
time  interval  to  ten 'minutes,  yields  a  velocity  error  of  .  5  per  cent,  or 
120  mph.  These  results  indicate  the  initial  velocity  may  be  precisely 
established,  using  a  reasonable  number  of  terms  in  the  f  and  g  series. 
Because  of  its  large  eccentricity,  the  lunar  trajectory  is  a  relatively  worse 
case. 

Figure  5  shows  that,  for  a  five  minute  interval,  seven  iterations 
are  required  to  reach  the  solution  for  the  lunar  orbit.  If  the  interval  is 
increased  to  ten  minutes,  the  velocity  is  established  after  eleven  iterations. 

Precision  achievable  by  this  technique  is  more  than  sufficient  to 
establish  preliminary  initial  conditions. 

C.  DETERMINATION  OF  THE  INITIAL  CONDITIONS  FROM  SIX  RADAR 
RANGE  MEASUREMENTS 

This  stud'/'s  third  tracking  scheme  attempted  to  utilize  only  range 
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measurements.  Underlying  ideas,  and. the  derivation  of  appropriate 

expressions,  can  be  found  in  Section  II.  For  present  purposes  it  is 

sufficient  to  recall  that  the  method  involves  a  solution  of  six  equations, 

linear  in  unknowns  x  ,  y  ,  z  ,  x  ,  y  ,  z  in  which,  at  least  initially,  the 

o  o  o  o  o  o 

coefficients  are  only  approximations  to  the  true  ones.  Furthermore,  if  the 
time  intervals  between  observations  are  equal,  the  coefficients'  numerical 
values  are  not  far  from  unity.  If  the  intervals  are  made  deliberately  unequal, 
some  coefficients  will  be_considerably  larger  or  smaller  than  unity,  but 
in  a  manner  that  they  are  basically  multiples  of  each  other. 

The  latter  observations  have  the  following  unfortunate  consequence. 

There  are  many  methods  available  for  solving  simultaneous  linear 
equations.  However,  all  methods,  with  one  exception,  involve  many  successive 
subtractions  of  quantities  of  nearly  the  same  order  of  magnitude.  Phis  leads 
to  the  loss  of  significant  figures  which  often  makes  the  results  meaningless. 

Though  the  equations  of  the  problem  fell  in  the  above  category,  an  attempt 
was  made  to  solve  them  by  (a)  inverting  the  matrix  and  (b)  by  successive 
elimination  of  the  unknowns  where  division  by  the  leading  coefficient  was 
employed.  This  was  done  for  equally  and  unequally  spaced  time  intervals. 

In  either  case,  a  point  in  the  solution  was  reached  where  the  original 

seven  significant  figures  were  reduced  to  one  or  two.  Use  of  double  precision 

in  the  computer  arithmetic  was  to  no  avail.  Generally,  after  the  first  try 

the  values  of  x  ,  y  ,  z  ,  x  ,  y  ,  z  were  larger  by  one  or  two  orders  of 
_  o  ooo  oo  ^  ' 

magnitude  than  those  desired.  No  iteration  was  carried  out  because  the 
structure  of  the  equations  indicated  futility  of  further  computation. 

The  one  exceptional  method  hinted  at  above  was  the  solution  of 
simultaneous  equations  by  the  iteration  method  described  in  Reference  (1). 
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This  method  is  free  from  the  loss  of  significant  figures  due  to  the 
subtractions  of  nearly  equal  quantities.  Unfortunately  the  iterative  process 
converges  only  when  each  equation  contains,  compared  to  others,  a  large 
coefficient,  and  this  coefficient  must  be  associated  with  different  unknowns  in 
each  equation.  This  implies  that  the  dominant  coefficients  are  arranged  along 
the  principal  diagonal  of  the  coefficient  matrix.  Generally,  such  an  arrange¬ 
ment  cannot  be  expected  in  the  physical  problem  considered.  A  theorem 
given  in  Reference  (3)  states  that,  for  the  method  to  be  applicable  in  each 
equation  of  the  system,  the  absolute  value  of  the  largest  coefficient  must  be 
greater  than  the  sum  of  the  absolute  values  of  all  the  remaining  coefficients 
in  that  equation. 

Simulated  problems  constructed  for  testing  the  over -all  method  do  not 

satisfy  the  above  condition.  Finally,  it  was  found  that  the  result  of  the  first 

iteration  is  quite  sensitive  to  the  initial  estimate  of  r^.  It  appears  that  the 

problem  is  poorly  conditioned.  This  difficulty  cannot  be  attributed  to 

unfavorable  geometrical  arrangement  of  the  orbit  and  the  observer,  because 

in  all  other  methods  the  selected  example  gave  excellent  agreement  with 

the  known  values  ofx,y,  z,x,y,z.  The  basic  problem  is  apparentlv 

o  o  o  o  o  o  ’ 

contained  in  the  fact  that  the  coefficients  of  the  starting  system  of  equations  are 
not  really  known,  and  the  approximations  used  for  these  are  insufficient. 

The  conclusion  drawn  is  that  the  determination  of  the  vehicle's  position 
and  velocity  components,  from  range  measurements  at  a  single  station,  is 
not  practical  as  formulated  in  the  previous  section. 

Before  abandoning  this  investigation  an  attempt  was  made  to  reformulate 

the  problem.  In  the  previous  scheme,  the  solution  starts  with  a  guess  of  r  . 

o 

The  difficulty  of  finding  a  reasonably  close  initial  value  of  geocentric  distance 
is  obvious.  However,  instead  of  starting  with  r^,  the  angle  between  some 
reference  (vertical),  and  the  direction  of  the  antenna  to  the  body  at  some  time 
t,  could  be  estimated. 
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The  geometry  is  then; 


I 

! 


VEHICLE 


Using  which  is  now  supposed  estimated,  r  is  computed  from 
r^  =  -  2  P  R  cos  (tt  -  4') 

r^  =  R^  +  P  +  2  p  R  cos 


It  IS  felt  that  <P  can  be  estimated  better  than  r.  If  this  is  allowed,  it  also 
follows  that  the  right  ascension  and  declination  a,  8  can  be  estimated.  This 
in  turn  leads  to  values  of  topocentric  coordinates  V,  ^  and  then  to 
geocentric  position  components  x,  y,  z.  The  above  follows  from  the  well 
known  relations 

^  =  p  cos  S  cosa  =  X  -  X  (24) 


T]  =  pcos  8  sina  =  y  -  Y 

(25) 

C  =  Psin8  =  z-  Z 

(26) 

Furthermore: 

J  2  2  2 

(27) 

r=  fx+y+z 
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Finally  since  4>  is  supposed  known  and  thereby  r,  angle  fi  can  be  computed 
from 


R  cos  ,3  =  xX+yY+zZ 


(28) 


Note  in  the  above  equations  that  the  unknown  quantities  are  a,  S  ,  x,  y,  and  z. 


These  equations  can  now  be  used  to  obtain  initial  estimates  of  these  parameters. 


Thus,  from  (27) ; 


=  ( 


2  2  2 
X  =  I  r  -  V  -  2 


) 


1/2 


and  using  in  (1),  (2),  (3)  and  (5); 


p  cos  S  cos 


J  2 

a  =  y  T  - 


2  2^ 
y  -  z  -  X 


{24‘) 


p  cos  S  sin  a  =  y  -  Y 


P  sin  5  =  z  -  Z 


r  R  cos  >3 


^  z^X+yY+zZ 


(25') 

(26') 

(28') 


Employing  (25')  and  (26')  in  (24')  and  (28')  one  obtains 


P  cos  a  cos  5 


2  2 

(PcosSsina+Y)  -  {  p  sin  5  +  Z)  (24") 


R  cos  /3  =  X  Vr^-(  p  cos  5  sina+  Y)^  -  (  P  sinS  +  Z)' 


+  (  P  cos  S  sina  +  Y)  Y  +  (  p  sin  8  +  Z)  Z 


(28") 
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Consider  equation  (24").  Following  a  lengthy  algebraic  reduction,  this 
equation  can  be  written  as; 


A  cos  S  +  cos  S  +  C  =  O 


wnere 


Ai  =  cos  a  +  Y  sin  aj 

=  2  cosa  +  Y  sin  aj 


B 


^1  = 


2  2 
R  +  p  -  r 


2P 


2  2  2 
R  +  P  -  r 

2  P 


-  Z 


Similarly,  equation  (28")  can  be  reduced  to 


where 


A  sin  a  +  B  sina  +  C  =  O 


2/2  2  \  2  „ 

A=p  (X+Y  1  cos  5 


B  =  2  p  Y  cos  5 


R  cos  ^  +  Z  ^p  sin  S  + 


C  =  p  sin  5  +  z  fp  sinS  +  Z^^ X^  +  Y^ 

\  -  2r  RZ  cos  ,/8  +  2Y^Z 

[v  /  \  ■  ' 

1 

?  2„  2 
+  r  R  cos  y0  +  Y 


/  2  2  \  2 
(  X  +  Y  )  -2  r  RY  cos  /3  -  X 


2  2 
r 


Note  that  A^^,  B^^,  do  not  depend  on  §  ,  and  A,  B,  C  do  not  depend  on  a  . 
Equations  (24")  and  (28")  are  decoupled  as  far  as  a  and  8  are  concerned.  The 
two  angular  coordinates  can  be  computed  by  successive  approximations  as 
follows.  Assume,  for  instance,  a  value  of  a  in  (24")  and  compute  S  .  Using  this 
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I 


I 


S  in  equation  (28")  compute  a  .  In  principle,  the  assumed  and  computed  values 
of  amust  be  identical.  Since  the  first  try  will  not  result  in  an  identity,  the 
value  of  assumed  in  (24")  must  be  modified  until  a  assumed  -a  computed  is 
reduced  to  a  small  quantity  consistent  with  the  desired  precision. 


The  fact  that  equations  (24")  and  (28")  yield  a  multiplicity  of  roots  will 

be  ignored,  and  the  proper  values  of  aand  Swill  be  assumed  to  have  been  found. 

This  being  the  case,  equations  (24),  (25),  and  (26)  yield  the  corresponding 

values  of  tj,  ^  or  x,  y,  z.  Equations  (24),  (25),  (26),  and  (28)  can  also 

serve  as  a  partial  control  because  the  trigonometric  functions  involved  must 

numerically  be  less  than  unity.  If  this  is  not  the  case,  the  value  of  r  could  be 

modified  and  the  whole  computation  repeated.  Assuming  that  reasonable  values 

of  X  ,  y  ,  z  have  been  obtained,  the  procedure  would  be  as  follows.  Using 
o  o  o 

X  ,  y  ,  z  obtained  above  in  equation  (17),  Section  II,  namely, 
o  o  o 


2 


a 


nl 


r 

o 


+  a 


n2 


X  +  a  , 
o  n3 


y  + 

o 


n4 


z+a  x+a.y+a_z  =C 
o  n5  o  no  o  n7  o  n 


n  =  i,  2,  3  ...  6 


(29) 


a  set  of  simultaneous  equations  in  x  ,  y  ,  z  as  unknowns  is  obtained. 

o  '  o  o 

Thus,  using  two  additional  measurements  of  p,  x  ,  v  ,  z  can  be 

o  o  o 

computed.  This  procedure  may  result  in  better  values  of  the  velocity 

components  since  subtractive  processes  have  been  considerably  reduced. 

Should  this  step  result  in  reasonable  values  of  x  ,  y  ,  and  z  ,  equation  (29) 

o  o  o 

could  be  used  in  its  entirety,  and  x  ,  y  ,  z  could  be  considered  as  unknowns 

o  o  o 

wherever  they  occur  explicitly.  The  f  and  g  series  would  be  computed  using 

X  ,  y  ,  z  ,  X  ,  y  ,  z  obtained  in  the  previous  step, 
o  ooo  oo  ^  ^ 


The  iteration,  as  described  in  Section  II  would  be  attempted  only  if  the 
above  scheme  showed  a  reasonable  success. 

No  computations  based  on  this  method  have  been  attempted. 
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IV.  AUXILIARY  COMPUTATIONS  AND  CONVERSION  SUB -ROUTINES 


In  the  description  of  the  n-body  Trajectory  Program,  Interim  Report 
#1,  July  i960,  it  has  been  pointed  out  that  the  coordinate  system  used  is  ref¬ 
erenced  to  the  mean  equinox  of  1950.  0.  Thus,  all  basic  information,  i.  e.  , 
planetary  positions  stored  on  magnetic  tapes,  is  expressed  in  this  frame  of 
reference.  Consequently,  the  components  of  the  position  and  velocity  vectors, 
which  serve  as  the.  input  to  the  trajectory  program,  must  be  consistent  with 
the  accepted  coordinate  system. 

The  initial  conditions  for  the  n-body  Trajectory  Program  are  usually 
derived  from  some  tracking  subroutine.  Previously,  it  had  been  tacitly 
assumed  that  the  observed  quantities  are  given  in  the  proper  frame  of  ref¬ 
erence,  making  the  output  usable  in  the  trajectory  program.  In  practice 
this  assumption  is  not  warranted.  Observations  will  usually  yield  quantities 
referenced  to  the  coordinate  system,  differing  from  1950.  0  by  at  least  the 
precession  effect.  If  these  observations  (measured  with  respect  to  the 
equinox  of  date)  are  used  in  a  particular  tracking  subroutine,  the  resulting 
output  will  not  be  usable  by  the  trajectory  program.  Thus,  the  output  of  the 
tracking  computation,  and  the  input  to  the  n-body  subroutine,  must  be  matched 
by  an  appropriate  transformation. 

The  purpose  of  this  section  is  to  describe  such  transformations  and 
auxiliary  computations  provided  with  the  n-body  Trajectory  Program. 

Before  discussing  various  detailed  schemes,  a  number  of  general  com¬ 
ments  are  necessary. 
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A.  BASIC  REQUIREivIENTS 

(a)  Distances 

Two  systems  of  units  are  provided  for  all  distance  measurements. 
These  are  astronomical  units  (A.  U.  )  and  the  equatorial  Earth  radii.  The 
reason  for  this  choice  is  that,  in  general,  in  all  computations  of  the  t^qje 
considered  in  this  report,  it  is  convenient  to  keep  magnitudes  of  distances 
near  unity.  Thus,  for  vehicles  moving  in  the  close  vicinity  of  the  Earth,  the 
above  condition  obtains  if  the  distances  are  expressed  in  terms  of  the 
Earth  radius  as  a  unit.  Conversely  the  mean  Earth-Sun  distance  is  suitable 
in  computations  of  the  motion  of  probes  to  Venus,  Mars,  and  other  points  in 
the  solar  system. 

Both  units  h:ve  been  provided  to  avoid  limiting  the  program  to  lunar 

vehicles. 


Thus,  prior  to  computations,  range  measurements  should  first  be 
converted  to  either  astronomical  units  or  Earth  radii. 

(b)  Angies 

All  angular  inputs  employed  by  the  conversion  routines  must  be  ex¬ 
pressed  in  degrees  and  decimals  of  a  degree.  This  particularly  applies  to 
right  ascension  a  which  is  often  expressed  in  time  measure.  Note  the  con¬ 
version  factor  is  15°/hour,  15'/minute,  and  15" /second. 

(c)  Dates  and  Times 

The  dates  and  times  of  observation  employed  by  the  transformation 
subroutines  occur  in  two  forms. 

(1)  The  date  and  time  of  observation  shall  be  expressed  in 

terms  of  universal  time,  in  days  and  decimals  of  a  day  of 
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the  same  month,  for  all  observations,  even  if  this  entails 
introducing  a  fictitious  number  of  days  in  a  month. 

Example:  Suppose  that  two  measurements  were  made: 

1935  Aug.  30.  0006  UT  and 
1935  Sept.  2.  9067  UT 

They  must  then  be  expressed  as 

1935  Aug.  30.  0006  UT  and 
1935  Aug.  33.9067  UT 

(2)  The  date  and  time  of  observation  to  be  also  expressed  in 
Julian  Days  (JD)  and  decimals  of  a  Julian  Day.  Note  that 
there  are  365.  25  days  in  a  Julian  year.  An  extensive  table 
of  Julian  Day  numbers  is  provided  in  Appendix  A.  Also, 
Julian  Day  numbers  are  tabulated  in  yearly  issues  of  the 
Nautical  Almanac  and  American  Ephemeris. 

Example:  Days  and  times  considered  under  (c)  (1)  ex¬ 
pressed  in  JD  are  given  by 

JD  2428044. 5006 
JD  2428048.4067 

(d)  Geographic  Coordinates  of  the  Observation  Site 

In  computations  of  the  rectangular  site  coordinates,  geographic  co¬ 
ordinates  of  the  tracking  station  are  required.  These  shall  be  expressed  as 
follows: 

Geographic  longitude  of  the  site  k  in  degrees  .  The  sign  convention 
adopted  is: 
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^  >  0  if  East  of  Greenwich  Meridian 
A.  <  0  if  West  of  Greenwich  Meridian 

Geographic  latitude  of  the  site  is  taken  as  positive  if  North  of  the 
equator,  and  negative  if  South  of  the  equator. 

The  altitude  of  the  site  above  sea  level  jhj  is  expressed  in  astro¬ 
nomical  units  or  Earth  equatorial  radii.  „ 

Specific  subroutines  available  in  the  program  are  considered  below: 

B.  COMPUTATION  OF  RECTANGULAR  GEOCENTRIC  SITE  COORDINATES 

The  geocentric  com.ponents  of  the  observer's  position  on  the  Earth's 
surface  are  required  by  all  tracking  subroutines.  These  components  can  be 
computed  with  respect  to  equinox  of  date,  and  then  transformed  into  the  co¬ 
ordinate  system  of  1950.  0,  or  computed  directly  with  respect  to  equinox  of 
1950.  0.  In  both  cases,  the  procedure  programmed  is  as  follows: 

1.  Reduction  to  Geocentric  Latitude 

For  reasons  which  will  not  be  discussed  here  (see  Reference  4  ),  it 
is  necessary  to  reduce  the  observer's  geodetic  latitude  to  a  geocentric  one 
prior  to  computing  the  components  of  the  observer's  position  vector.  The 
appropriate  expression  utilized  in  the  program  is 

4>'  =  <^  +  -  -695  .6635  sin  +  1.  1731  sin  4<^  -0.0026  sin  6<^ 

3600  I  J 

where  4^'  is  the  geocentric  latitude. 

2.  Magnitude  of  the  Geocentric  Radius  Vector  of  the  Site 
The  geocentric  radius  vector  R  is  determined  from 
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R  =  h+a(.  998320047+  .  001683494  cos  2  -  ■  000003549  cos  4(^  +.000000008cos  6 'P  ) 


In  the  above,  a  =  equatorial  radius  of  the  Earth  and  h  is  the  altitude  of  the 
site  above  sea  level.  Note  that  R  may  be  expressed  either  in  astronomical 
units  or  equatorial  Earth  radii. 

3.  Computation  of  Sidereal  Time 

Since  the  Earth  rotates  about  its  axis,  the  components  of  R  will  be 
functions  of  time.  The  time  involved  is  the  "star  time,"  generally  called 
the  sidereal  time  -  a  measure  of  the  angle  between  the  observer's  meridian 
and  the  vernal  equinox. 


In  the  computer  program,  sidereal  time  is  computed  as  follows: 


(a)  First  Greenwich  Mean  Sidereal  Time  (GMST)  at  Universal 
Time  as  measured  by  the  mean  equinox  of  date  is  given  by 


GMST  =  - 

3600 


23925^836  +  8,640,  184®542 


JD  -  2415020.  0 
36525 


+ 


0^0929 


( 


JD  -  2415020.  0 
36525 


Only  that  part  of  the  resulting  value  is  taken  which  is  less  than  24  hours. 

In  the  above,  JD  is  the  Julian  date  at  midnight  of  the  beginning  of  the  day  at 
which  the  GMST  is  desired,  and  2415020.  0  corresponds  to  the  noon  of 
January  0,  1900.  Note  that  GMST  is  given  in  hours. 


(b)  The  Local  Sidereal  Time  is  computed  from 


LST  = 

(GMST  +  24(UT)  + 

r24(UT)l 

+  ^1  15 

(  3600 

L  J 

15  ) 

in  degrees 

In  the  above,  UT  =  universal  time  expressed  in  decimals  of  a  day. 


T 
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GMST  computed  in  (a)  differs  from  that  tabulated  in  the  Almanac 
by  nutation  terms. 


4.  Rectangular  Components  of  the  Observer 

Once  LST  has  been  computed,  the  observer's  position  vector  can  be 
resolved  in  the  coordinate  system  with  respect  to  which  LST  is  given. 


Thus 


X  =  R  cos  d>'  cos  (LST) 

Y  .=  R  cos  <p  ‘  sin  (LST) 

Z  =  R  sin  <p  ‘ 

with  respect  to  the  mean  equinox  of  date. 

Note:  If  a  close  Earth  satellite  is  used,  X,  Y,  Z  determine  the  ob¬ 

server's  position  with  respect  to  the  center  of  force.  However, 
for  the  deep  space  probes,  the  center  of  force  will  most  likely 

reside  in  the  Sun.  In  this  case,  designate  by  X  ,  Y  ,  Z  ,  the 

0  a  ® 

components  of  the  Sun's  position  vector.  These  components  are 
tabulated  in  the  Almanacs.  Quantities  X,  Y,  Z,  computed  above 
are  now  small  corrections  for  the  parallax  since  observations 
are  made  from  the  surface  of  the  Earth.  The  Sun's  coordinates, 
with  respect  to  the  observation  site,  are  given  by 

X  =  X  +  X 
0 

Y  "  =  Y  +  Y 

0 
f  I 

z  =  z  +  z 

e 


In  astronomical  practice,  it  must  be  mentioned,  the  Sun-to-Earth  direc¬ 
tion  is  taken  positive .  However,  the  Sun's  coordinates  tabulated  in  the 
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Almanacs  are  measured  with  respect  to  the  Earth.  This  convention  is  not 
observed  in  this  report.  It  is  always  assumed  that  the  inertial  origin  rests 
at  the  center  of  force  and  all  distances  are  measured  positive  from  this  cen¬ 
ter.  Consequently,  if  tabulated  values  of  the  Sun's  coordinates  are  used  in 
formulas  of  this  report,  always  reverse  the  algebraic  sign  of  the  tabulated 
value.  If  all  computations  are  assumed  to  be  carried  out  in  the  coordinate 
system  of  1950.  0,  X,  Y,  and  Z  of  iate  must  be  converted  to  the  standard 
reference  system. 

C.  REDUCTION  OF  RECTANGULAR  COORDINATES  X,  Y,  Z  OF  DATE 

TO  EQUINOX  OF  1950.  0 

Designate  the  rectangular  components  of  a  vector  given  with  respect  to 
equinox  of  date  by  Z^.  The  conversion  of  these  to  the  coordinate 

system,  fixed  by  the  equinox  of  date,  is  effected  by  the  following  trans¬ 
formation: 


In  this  expression 
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where  the  elements  of  matrix  are  given  by  the  following  formulas 

2  3 

a^^  =  1. 00000000- .  00029696  (At)  00000014  {  At) 

2  3 

ai2  =  -.  02234941  A  t  00000676  (  A  t)  +.  0000022 1  (  A  t) 

2  3 

^13  ^  --00971691  At  -f.  00000206  (At)  -f.  00000098  (  At) 

2  3 

a,^  =  .02234941  ^t+  .00000676  (At)  -.00000221  (At) 

2  3 

a^^  =  1. 00000000  00024975  (At)  -.00000015  (At) 

2  3 

a  =  .00010858  (  At)  -.  00000003  (  At) 

2  3 

a^^  =  .  00971691  A  t -.  00000206  (  At)  -.  00000098  (  A  t) 

a,,  =  00010858  (  At)^  -.00000003  (  At)^ 

3  2 

2  3 

a^^  =  1. 00000000  -.00004721  (At)  +.  00000002  (  At) 


In  the  above  expressions 

2433281. 5  -  JD 

A  t  =  - 

36525 

where  JD  2433281. 5  corresponds  to  the  beginning  of  the  Besselian  year  1950 
(namely  1950.  0),  and  JD  to  the  date  and  time  at  which  X,  Y,  Z  are  given. 
Thus,  A  t  is  in  eff-"  ct  a  measure  of  Julian  centuries  taken  from  1950.  0. 
Numerical  constants  in  a.,  were  taken  from  Reference  5. 

D.  REDUCTION  OF  (X,  Y.  Z)  1950.0  TO  THOSE  OF  DATE 

if  matrix  known,  this  transformation  is  effected  by 

D“^i95U  ' 


Xd  A  X 


1950.  0 


where  is  reflected  about  the  principal  diagonal.  However,  it  is 

simpler  to  recompute  the  transformation  matrix.  This  is  done  simply  by 


A  ‘  is  A 
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'j  ■mill 


inverting  the  sign  in  At.  Thus,  the  new  At  becomes 


At 


JD  -  2433281. 5 
36525 


Using  this  in  the  series  expressions  for  a_  and  interchanging  subscripts 
1950.  0  and  D  the  desired  transformation  is  obtained. 

Note:  In  the  A.rr:ierican  Ephemeris  and  Nautical  Almanac  it  is  now 

customary  to  tabulate  solar  coordinates  with  respect  to  both  the 

mean  equinox  of  the  beginning  of  a  given  year  and  the  equinox  of 

1950.0.  In  older  Almanacs ,  solar  coordinates  were  tabulated 

only  with  respec*:  to  the  mean  equinox  the  beginning  of  the 

year.  Under  the  latter  conditions  in  t  t  '^ing  X  ,  Y  ,  Z 

©  o  o 

between  equinoxes,  JD  will  correspond  to  the  l  ginning  of  the 
Besselian  year  of  interest. 

The  solar  coordinates  at  other  than  taouiar  points  are  obtained  from 

published  ephemerides  by  interpolation.  There  is  no  reason  why  the  above 

reduction  formulas  could  not  be  used  for  this  purpose,  provided  X  ,  Y  ,  Z 

o  ©  © 

are  known  for  some  date. 


It  is  well  known  that  the  Sun  is  slightly  ahead  of  the  position  given  by 
theory  from  which  the  solar  coordinates  are  computed.  This  discrepeincy 
can  be  largely  eliminated  if  the  Sun's  coordinates  are  interpola.ced  for  the 
time 


t  ^  ,  +  0^  .  000282 

Desired 

It  should  be  noted  that  the  abov^e  trcinsformations  are  valid  for  any  vector 
and,  consequently,  equally  applicable  to  transformations  of  the  velocity  com-’ 
ponents . 
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E.  CONVERSION  OF  AZIMUTH  AND  ELEVATION  TO  RIGHT  ASCENSION 

AND  DECLINATION 

Another  important  transformation  is  conversion  of  elevation-azimuth 
angular  coordinates  to  right  ascension  and  declination  coordinates. 

Conventional  radars  are  not  well  adapted  to  equatorial  mountings,  and  the 
angular  output  is  of  necessity  given  with  respect  to  the  local  elevation-azimuth 
coordinate  system. 

Designate  by  a  -  right  ascension 

0  -  declination 
E  -  elevation 
A  -  .azimuth 
HA  -  hour  angle 

In  the  northern  hemisphere,  azimuth  will  always  be  measured  from  the 
north  point  clockwise  through  360°. 

The  hour  angle  is  measured  West  from  the  observer's  meridian  through 
360°. 

The  right  ascension  is  measured  East  from  the  first  point  of  Aries 
o 

through  360  The  declination  is  taken  positive  North  of  celestial  equator 
and  negative  South  of  the  latter. 

O 

Since  computations  of  preliminary  orbits  from  angular  data  are  more 
convenient  when  the  latter  are  given  in  the  equatorial  system,  elevation  and 
azimuth  are  converted  by  the  following  expressions 

1.  Declination  8  is  computed  from 

sing  =  sin  sin  E  +  cos  0'  cos  E  cos  A 
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The  algebraic  sign  of  sin  8  gives  the  sign  of  8 


2.  The  right  ascension  a  is  computed  as  follows: 

First,  the  hour  angle  of  the  observed  body  is  computed  from 

cos  E  sin  A 
sin  HA  =  -  - 

cos  8 

cos  HA  =  sin  E  cos  <^'  -  cos  E  sin  (p'  cos  A 

cos  8 

The  above  expressions  determine  both  the  hour  angle  and  its  Miadrant. 
The  right  ascension  a  of  the  observed  object  is  determined  from 

a  =  LST  -  HA 

The  result  can  be  given  in  either  time  or  angular  measure.  In  this  pro- 
greim  a  is  always  computed  in  degrees. 

The  Local  Sidereal  Time  is  taken  from  B,  3(b).  Since  the  elevation  and 
azimuth  are  measured  \,'ith  respect  tc  the  coordinate  system  as  existing  at 
the  time  of  measurement,  a  and  8  from  the  above  expressions  are  referred 
to  the  equinox  of  date. 

Often  these  quantities  must  be  reduced  to  the  standard  equinox  of  1950.  0. 

F.  REDUCTION  OF  a  AND  S  FROM  THE  EQUINOX  OF  DATE  TO  THE 
REFERENCE  EQUINOX 

Let  a  and  S  referred  to  the  equinox  of  date  be  designated  by  and 

8j^  .  These  are  obtained  by  direct  measurement  or  from  computation  D. 
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The  reduction  can  be  accomplished  in  two  ways.  One  of  these  is  de¬ 
scribed  in  Reference  (4)  p.  240.  The  other  method  is  substantially  simpler 
although  it  involves  an  iterative  procedure. 

Computation  is  arranged  as  follows: 

Suppose  that  and  are  given  with  respect  to  eq\iinox  of  t^^  and  values  at 

t  are  desired  where  t  ^  f  i  • 

it 


1.  Certain  quantities  m  and  n  are  computed  for  the  middle  of  the  in¬ 
terval  involved.  These  are  given  by 


m  = 


3600 


46. 09905  +  0. 0002790 


)  1  d.g 

,  365. 25  /  j 


rees 


n  = 


3600 


20. 0426  -  0. 000085 


(JD  -  2433281. 5  \ 
365.25  / 


degrees 


Note  that  (JD  2433281. 5)/365.  25  will  correspond  to  t 


Using  a  ^.^^and  5^.^^  in  expressions  for  the  annual  precession  in  right  ascen¬ 
sion  and  declination,  results  in 


d  a 

dF 


m  +  n  sin 


tan  S 


d  S  =  n  cos  a 

The  approximate  values  of  a  and  5  are  then  given  by 

^2  ^2 
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If  the  epoch  ^2  ^  procedure  is  the  same  as  above. 

Note,  however,  that  the  approximations  are  given  by 

"‘'l  ■  ‘2>  — 


s,  =  b,  -(t,  -  t  )  — 


Thus,  depending  on  the  interval 
ceed  from  any  equinox  to  .any  other  one. 


*^2  ■  h 


the  reduction  can  pro- 


G.  EPHEMERIS  COMPUTATION 

The  purpose  of  any  tracking  and  orbit  computation  program  is,  not  only 
to  determine  the  orbit,  but  to  predict  the  future  positions  of  the  body.  These 
data,  the  so-called  ephemeris,  are  needed  to  enable  the  observer  to  re¬ 
acquire  the  body  if  the  tracking  is  intermittent. 


Ephemeris  information  can  best  be  given  as  angular  data,  and  possibly 
range  data  with  respect  to  a  coordinate  system  fixed  at  the  observer's  site. 
The  predicted  positions  can  be  given  with  respect  to  the  equinox  of  date  or 
the  equinox  of  1950.  0. 

The  computational  procedure  is  as  follows; 


1.  The  n-body  program  yields  values  of  the  vehicle's  position  x,  y,  z 
at  a  time  t  with  respect  to  equinox  of  1950.  0.  The  units  of  distance  can  be 
astronomical  units  ,  Earth  equatorial  radii,  or  kilometers .  Denote  these 


components  by  X 


i  1950 


i  1950 


i  1950 
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2.  At  assigned  universal  times  t.  rectangular  coordinates  of  site  , 

i 

are  computed  by  methods  of  section  B.  If  the  Sun's  coordinates 

i  i 

are  desired,  use  the  appropriate  Almanac. 

3.  Reduce  these  to  X  ,  Y  ,  Z 

1  1950  i  1950  ^  1950 

4.  The  topocentric  range  p  expressed  in  appropriate  units  is  com¬ 
puted  from 

—  — 

p  (x  -X  )  ^  ~  ^  ^  ^ 

^  ‘i  1950  ‘i  1950^  ^  1950  “i  1950^  ^  1950  ^  1950  ^ 


5.  The  declination  S 


at  t.  is  computed  from 
^  1950  ^ 


«in  S 


z  -  Z 

^  1950  S  1950 


i  1950 


The  algebraic  sign  of  t, 


=  z  -  Z 

^  1950  ^  1950  \  1950 


determines 


the  sign  of  8 


The  right  ascension  o. 


is  determined  from  expressions 


i  1950 


cos  a 


X  -  X 

i  1950  ‘i  1950 


“^i  1950  Pj.  cos 


s.iri  a 


i  1950 


^t  ’^t 

i  1950  i  1950 


t  c 

i  1950  P  cos  5 

i  i  1950 


6.  If  desired,  and  8^  are  reduced  to  the  equinox  of 

i  1950  'i  1950 


date  by  method. outlined  in  section  F. 
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Thus,  computations  indicated  in  1  through  6  result  in 

p  ,  a  ,8  .  or  a  and  S 

t  t  t  t  t 

i  i  1950  i  1950  i  i 

If  the  observing  instrument  is  a  radar,  more  appropriate  angular 
quantities  are  azimuth  and  elevation.  These  are  obtained  as  follows. 

7.  Compute  the  Local  Sidereal  Time  (LST)  as  measured  by  the  equinox 
of  date  or  equinox  of  1950.  0  using  methods  of  Section  B.  3. 

8.  Using  a  or  a  from  G.  6  the  Local  Hour  Angle  (LHA) 

1  1950  i 

of  the  body  is  computed  from 

(LHA)  =  (LST)  -  a 

t.  t,  t  • 

1  11 

It  must  be  observed  that  LST  and  a  used  in  the  above  must  be  re¬ 
ferred  to  the  same  equinox. 


9-  Elevation  at  time  t.  is  obtained  from 

1 


sin  E  =  sin  sin  8  +  cos  4>  cos  8  cos  (LHA) 

t.  t.  t.  't 

1  1  1  i 

where  4-'  has  been  defined  in  B.  1.  The  algebraic  sign  of  sin  E  determines 

i 

the  sign  of  E^  . 


10.  Azimuth  is  determined  uniquely  from  expressions 


•sin  (LHA)^  cos  8  ^ 


sin  A  = 
t. 


cos  E 
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and 


cos  A 


sin  S  -  sin  <P‘  sin  E 
t.  t. 

1  1 


cos  (/)'  cos  E 


A  careful  distinction  must  be  made  between  A  ,  E 

^  1950. 0  1  1950. 0 


and  A^  ,  E^  .  Indirectly,  these  values  differ  by  effects  of  precession, 
i  i 


As  a  result  of  computations  6  through  10  azimuth  and  elevation  are 
obtained  referred  to  the  horizon  plane  and  zenith  of  date  or  that  of  1950.  0. 

All  computations  discussed  above  are  provided  as  separate  sub¬ 
routines  with  the  main  n -body  Trajectory  Program.  An  attempt  has  been 
made  to  make  these  subroutines  as  independent  as  possible.  In  some  cases, 
however,  total  separation  is  not  practical.  This  is  particularly  true  in  con¬ 
verting  CL  ,  S  to  A,  E.  This  subroutine  utilizes,  the  hour  angle  which  in  turn 
requires  Local  Sidereal  Time.  However,  the  computation  of  LST  is  tied  up 
with  the  computation  of  the  observer's  coordinates  on  the  Earth's  surface. 
Thus,  in  cases  where  LST  alone  is  required,  some  superfluous  information 
may  be  produced. 

Occasionally,  in  tracking  routines,  it  is  required  to  find  the  sidereal 
time  measuT'-id  by  equinox  at  time  t^  if  the  sidereal  time  measured  by  equinox 
t,  is  known.  This  reduction  can  be  accomplished  by  utilizing  methods  of  B.  3(a), 
(b),  but  for  a  few  dates  the  use  of  the  7090  subroutines  may  not  be  warranted. 
Under  these  conditions,  a  simpler  procedure  is  available  and,  although  it  is 
not  a  part  of  this  program,  it  will  be  described  below. 
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H.  REDUCTION  OF  SIDEREAL  TIME  REGULATED  BY  A  MOVING  EQUINOX 
TO  SIDEREAL  TIME  REGULATED  BY  A  STATIONARY  EQUINOX 

The  relation  between  the  sidereal  time  regulated  by  a  stationary  equinox 
and  the  mean  solar  time  is  given  by 


de  =  1. 002737810  dt 
s 


The  constant  of  proportionality  is  the  ratio  between  the  mean  solar  day 
and  sidereal  day.  Its  exact  value  varies  depending  upon  the  author.  However, 
for  most  purposes  the  value  given  above  is  sufficiently  accurate. 

Integrating  the  above  obtains 


0  =  0  +  1.  002737810  (t  -  t  ) 

So  o 


(30) 


where  0  is  the  constant  of  integration.  The  sidereal  time  0  can  be 
o  n  s 

obtained  from  the  Almanac  or  the  formula  given  in  Section  B. 


GMST  at  UT  =  ^ 


3600 


23925^836+8640184^542  At+0®0929  (At)^ 


A  t  = 


JD-24I5020.  0 
36525 


and 


JD  =  t 

o 


The  Greenwich  MST  at  any  other  universal  time  is  tlicu  given  by  equation 

(1).  It  must  be  carefully  noted  that  0  computed  by  (1)  is  measured-’oy  the 

s  ' 

stationary  equinox  of  t 

o 
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To  correct  this  time  to  GMST,  regulated  by  the  moving  equinox,  recall 
that  the  general  precession  of  the  first  point  of  Aries  amounts  to  50”.  2675 /year 
as  of  1950,  0,  Since  the  cosine  of  obliquity  of  the  ecliptic  for  1950.0  is 

COS  E  =  .  91743695,  it  follows  that  along  a  stationary  equator  precession 

1950 

is  given  by 

f  r  n  g 

50.2675  cos  117/year  =  3.074/year  = 

s  ci 

=  0.008417/day  =  0.  00000009742/day. 

In  t  years  the  equinox  will  precess  along  the  equator  by  an  amount 


A  0  =  3.  0744841  t. 

s 


Sidereal  time  measured  by  the  moving  equinox  is  then  given  by 


GMST  =  0  +  1.002737810  (t  -  t  )  ±  A  0  . 

o  os 


Positive  sign  is  taken  if  t  >  t  ,  negative  one  when  t  <  t  .  In  general  then 

o  o 


GMST  =  0  +  1. 002737810(t  -  t  )  +  3.  0744841{t  -  t  ). 

o  00 


To  make  the  method  clearer  a  numeT-iral  cxamnle  is  civcn. 

1  O 


Example: 

Suppose  that  GMST  at  0  UT  on  Sept.  3,  1935, is  equal  to  22^44^' 

,  „  s 

48  .36.  Let  us  compute  the  sidereal  time  on  Sept.  3,  1950. 

From  Equation  (1)  it  follows  that 

GMST  =  22^44^^48®.  38  +  i.  002737810  {2433527.  5  -  2428048. 5) 


=  5494  .9482431 
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Its  fractional  part  gives 


GMST  =  22^  45’^  28®.  20 


This  is  the  GMST  on  Sept.  3,  1950, as  measured  by  the  stationary  equinox  of 
Sept.  3,  1935.  However,  to  obtain  GMST  as  measured  by  the  equinox  of 
Sept  3,  1950,  a  correction  for  precession  must  be  introduced.  This  cor¬ 
rection  is  given  by 

A  0  =  3®0744841  x  15^0006845  =  46®  12 

s 

Since  the  equinox  of  1950  is  in  advance  of  equinox  of  1935  by  the  above 
amount,  there  results 


GMST  ^  ^  =  22^45”"28®20  +  46®12  =  22^46'^14®3 

Sept.  3,  1950 


Converse  Problem 


h  ^  ,m 


Given  equinox  of  Sept.  3,  1950, at  which  GMST  at  0  UT  is  22  46 

g 

14  .  3,  compute  GMST  on  Sept.  3,  1935^  as  regulated  by  the  stationary  equinox 
of  sept.  3,  1950, and  the  moving  equinox  of  Sept.  3,  1935. 


GMST 


on  Sept.  3,  1933 
measured  by  /  i95u 


-  22^46"^  14®3  -.5494^0004610 


The  fractional  part  of  this  number  gives 


GMST  =  9483151  =  22‘'^45^  34®.  4 


Since  the  equinox  of  Sept.  3,  1935,  lags  the  equinox  of  Sept.  3,  1950  by 
an  amount 


A  0  =  46  . 12 

s 
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it  follows 


GMST  =  ?.2^'44"^48®.  30 

as  measured  by  the  moving  equinox  of  Sept.  3,  1936.  It  is  also  useful  to 

note  that  A  ©  is  the  angle  between  the  two  equinoxes  in  question, 
s 

Thus,  in  equation  (2)  there  exists  a  simple  method  of  evaluating  sidereal 
times  as  measured  by  any  desired  equinox,  provided  sidereal  time  is  known 
at  some  instant  of  time. 

The  discussion  of  auxiliary  subroutines  will  be  concluded  by  giving  sev¬ 
eral  block  diagrams  of  possible  tracking  com^putations  involving  situations 
frequently  encountered  in  practice. 

1.  SCHEMATICS  OF  TYPICAL  COMPUTATIONS 
Problem  1 

Consider  a  tracking  station,  whose  geographic  coordinates  are  and  k 
that  is  capable  of  measuring  angular  positions  of  a  close  Earth  satellite  with 
respect  to  the  geocentric  equatorial  coordinate  system.  The  absolute  mini¬ 
mum  of  information  necessary  to  estimate  the  satellite's  motion  consists  of 
a  and  8  measured  at  three  different  times.  Assume  c  and  8  are  measured 

The  resulting  computational  scheme  and  the  flow  of  information  is  shown 
in  Figure  6.  Its  main  features  are  as  follows: 

The  first  part  of  the  computation  can  be  carried  out  in  two  ways.  The 

measured  right  ascension  and  declination,  both  with  respect  to  equinox  of 

date  (  used  directly  in  the  three  angle  tracking  routine  to 

obtain  a  preliminary  value  of  the  vehicle  position  and  velocity  (x  ,  y  ,  z  , 

o  o  o 

x  ,  y  ,  z  )  at  some  time  t  . 
o  o  o  o 
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The  n-body  Trajectory  Program  cannot  accept  these  values  as  initial 
conditions  since  they  are  referenced  to  the  equinox  of  date.  Thus  x^,  y^  etc.  , 
must  be  converted  to  the  epoch  of  1950.  0.  Under  these  conditions  the  proper 
routing  is  obtained  by  placing  at  position  2,  at  2. 

Another  way  is  to  convert  measured  data  to  epoch  of  1950.  0.  Under 
these  conditions  the  output  of  the  three -angle  tracking  routine  is  directly 
usable  by  the  7090  program.  The  proper  connections  are  then  S^(l),  S2{1)- 

The  output  of  the  7090  program  is  in  the  form  of  rectangular  components 
of  position  and  velocity  of  the  vehicle  at  some  future  time  t  referenced  to 
equinox  of  1950.  0. 

Following  this,  two  possibilities  exist.  One  is  to  compute  the  predicted 
angular  positions  with  respect  to  1950.  0.  The  second  possibility  is  to  com¬ 
pute  all  predicted  positions  with  respect  to  the  equinox  of  date.  Figure  6 
shows  both  alternatives. 

The  user  can  select  the  flow  of  computation  as  desired  by  rearranging 
the  order  of  various  subroutines. 

However,  it  is  strongly  recommended  that  all  computations  be  carried 
out  in  a  coordinate  ayatem  referenced  to  ?^he  enninex  of  1950.  0.  Thus,  all 
measured  data  as  well  as  auxiliary  quantities  should  be  expressed  in  this 
frame  of  reference.  This  accomplishes  two  things.  First,  the  method  is  in 
accord  with  the  commonly  accepted  astronomical  practice  of  referring  data 
to  a  standard  epoch.  Secondly,  comparison  with  computations  of  other  in¬ 
vestigators  is  possible  without  need  for  further  transformations. 

In  some  instances,  of  course,  adherence  to  this  recommendation  niay 
be  awkward. 
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This  is  particularly  true  in  the  case  of  ephemerides  prepared  for  radar 
stations  in  terms  of  elevation  and  azimuth. 

Problem  2 

Consider  a  situation  which  is  in  all  respects  identical  with  that  of  prob¬ 
lem  1  with  the  exception  that  the  measured  angular  data  are  expressed  in 
terms  of  azimuth  A  and  elevation  E. 

The  block  diagram  of  the  computation  is  then  arranged  as  in  Figure  7. 

From  this  figure  it  can  be  seen  that  problem  2  requires  the  addition  of  a 
subroutine  converting  nieasured  azimuth  and  elevation  to  right  ascension  and 
declination  of  date. 

The  essential  output  of  ephemeris  computation  in  this  problem  consists 
of  azimuth,  elevation,  and  range  p 

Problem  3 

A  tracking  situation  is  now  considered  in  which  an  instrument,  such  as 
radar,  measures  range  p  and  the  associated  angle  which  may  be  given  as 
elevation  and  azimuth,  or  right  ascension  and  declination. 

Because  a  complete  position  vector  is  measured,  it  is  merely  necessary 
to  compute  velocity  components  at  some  time  t  which,  in  conjunction  with  the 
measured  position  components,  can  be  used  as  initial  conditions  for  the  main 
program. 

If  the  tracking  instrument  is  equatorial!'/  mounted,  the  computation  Cein 
be  arranged  as  shown  in  Figure  8. 
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As  in  Problem  1,  the  first  part  of  the  computation  can  be  carried  out  in 
the  coordinate  system  of  date,  or  that  referenced  to  equinox  1950,  0.  In  the 
first  case,  the  measured  A  and  E  are  first  converted  to  a  and  S  of  date. 
These  are  used  to  compute  the  components  of  the  measured  position  vector 
at  two  different  times  from  expressions 

^  -  P cos  S  cos  a 

7]  -  P  cos  S  sin  a 

^  =  /3  s  in  S 

These  quantities  used  in 

X  =  ^  +  X 
y  =  +  Y 

z  =  ^  +  Z 

yield  the  components  of  the  geocentric  position  vector  of  the  vehicle.  These 
components  are  employed  in  the  two-range  vector  iterative  routine  to  produce 
the  velocity  components  at  one  of  the  measured  instants  of  time.  Before 
using  these  in  the  n-body  Trajectory  Program,  conversion  to  the  equinox  of 
1950.  0  must  be  effected.  The  computation  then  follows  the  same  lines  as  in 
Problems  1  and  2. 

SwitrViPs  Sj  and  are  connecteu  Lo  positions  1  and  2  for  the  proper  flow 
of  information. 

If  the  iteration  routine  is  to  produce  x  ,  y  ,  z  ,  x  ,  y  ,  z  referenced 

©  O  0  0  0  0 

>  to  epoch  1950.  0,  S  is  connected  to  position  2  and  S_  to  position  1. 

1  Ca 

Problem  4 

Though  similar  to  Problem  3,  this  situation's  tracking  instrument  is 
assumed  to  be  mounted  equatorially.  The  measured  data  therefore 
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consists  of  range  p  and  the  associated  right  ascension  a  and  declina¬ 
tion  S 

The  flow  of  information  is  very  similar  to  that  found  in  Figure  6  and 
shown  in  Figure  9. 

Positions  of  switches  S,  and  S_  for  proper  flow  of  information  are  either 

1  C* 

S,(l)  and  S_(l)  or  S,(2)  and  S  (2),  depending  upon  the  referencing  of  the 
1  ^  i.  ^ 

angular  data  to  the  equinox  of  date  or  1950.  0. 

Diagrams  similar  to  those  given  in  Figures  6,  7,  8,  and  9  can  be  con¬ 
structed  for  any  tracking  subroutine.  From  these  diagrams  it  is  apparent 
that  a  substantial  number  of  blocks  contained  in  the  conversion  subroutines 
disappear  if  computations  are  consistently  carried  out  in  coordinates  ref¬ 
erenced  to  some  standard  equinox,  e.  g.  ,  1950.  0. 

No  block  diagram  is  given  for  the  case  of  6  ranges.  Operation  of  this 
routine  in  its  present  formulation  was  found  unreliable. 

Appendix  B  of  this  report  consist  of  Operational  Directories  and 
FORTRAN  Listings  of  programs  discussed  above,  as  well  sample  check 
problems  for  each  subroutine. 


ir.  ERROR  ANALYSIS  OF  HYPERBOLIC  LUNAR  IMPACT  TRAJECTORIES 
A.  INTRODUCTION 


As  a  part  of  demonstrating  the  capabilities  of  the  Lunar  Trajectory 
Computer  Program  described  earlier  in  this  report  a  study  was  performed  of 
tolerances  in  initial  conditions  involved  in  lunar  flight  impacting  the  Moon's 
surface. 

For  obvious  reasons  it  was  found  impractical  to  consider  all 
possible  im.pact  trajectories  covering  the  velocity  range  from  elliptical  to 
hyperbolic  ones.  Likewise,  there  was  no  attempt  to  arrange  trajectories  by 
firing  locations  and  dates.  As  a  consequence  of  these  considerations,  it  was 
decided  to  consider  only  trajectories  of  classes  IS^^  or  IS'*’  in  the  sense  of 
Egorov  /"lo/  These  classes  of  trajectories  refer  to  impacts  occurring  on 
the  ascending  branches  of  trajectories.  This  in  turn  implies  that  the  velocity 
with  respect  to  the  Earth  is  in  the  hyperbolic  range.  The  actual  value  of  the 
initial  velocity  is,  in  principle,  immaterial  for  purposes  of  this  demonstration. 
However,  in  general,  higher  velocity  trajectories  impose  tighter  tolerances 
on  orientations  of  the  initial  position  and  velocity  vectors. 

The  general  character  of  this  study  can  be  summarized  as  follows: 

(a)  A  nominal  hyperbolic  trajectory  is  chosen. 

(b)  it  is  a  three  dimensional  trajectory.  There  are  no  restrictions 
commonly  invoked  in  assuming  that  the  vehicle  moves  in  the  Earth- 
Moon  plane. 

(c)  The  vehicle  moves  in  the  field  of  the  Sun,  the  Earth,  and  the  Moon. 

(d)  Three  dates  are  considered.  These  correspond  to  the  following  phases 

I) 

of  the  Moon. 

i 

i 
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(1) 

First  Quarter 

(Nov.  7,  1959) 

(2) 

Full  Moon 

(Nov.  15,  1959) 

(3) 

Last  Quarter 

(Nov.  23,  1959) 

This  arrangement  of  the  study  may  at  least  qualitatively  reveal  effects 
of  the  changing  geometrical  configuration  of  the  three  main  bodies. 

B.  NOMINAL  TRAJECTORIES 

Nominal  trajectories  for  each  phase  of  the  moon  at  the  above  dates  have 
been  established  empirically.  An  essential  requirement  that  has  been  im¬ 
posed  on  these  trajectories  is  that  the  hit  must  occur  at  the  center  of  the 
apparent  disc  of  the  Moon.  Its  angular  coordinates  as  seen  from,  the  Earth 
have  been  taken  from  the  Nautical  Almanac. 

The  initial  conditions  for  the  differential  equations  of  motion  were  de¬ 
termined  experimentally  in  units  of  A.  U.  and  A.  U.  /hour.  Upon  converting 
we  find  the  burnout  altitude  h  ~  388.  5  st.  miles  and  the  burnout  velocity 
V  =  7.  177  St.  miles/sec.  We  have  succeeded  in  holding  these  values  constant 
for  the  three  dates  indicated.  Thus,  the  only  difference  in  initial  conditions 
between  the  three  sets  of  runs  occurs  in  the  orientation  of  vectors  p  and  v. 
(See  Figure  10). 

The  following  procedure  was  followed  in  arriving  at  a  nominal  trajectory. 
As  a  first  step,  conditions  have  been  taken  which  result  in  an  impact  for  an 
idealized  problem  based  on  either  two  body  approximations  or  previous  com¬ 
puter  runs.  These  initial  conditions  are  used  in  the  Lunar  program  to  obtain 
a  trajectory.  This  trajectory  in  most  cases  strikes  the  Moon,  but  not  at  the 
desired  place.  Following  this  the  initial  velocity  is  changed  by  a  small 
increment,  and  the  computation  is  repeated.  After  three  runs  are  ob¬ 
tained,  an  estimate  is  made  of  the  differential  correction  required  to  effect 
the  desired  impact.  This  correction  is  usually  not  sufficient;  consequently, 
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the  procedure  described  above  is  repeated  several  times  until  the  strike  occurs 
at  the  desired  place.  It  was  found  that  in  all  three  phases  of  the  moon  the 
center  of  the  apparent  disc  of  the  Moon  could  be  hit  in  about  9  tries.  The 
resulting  error  between  the  computed  and  observed  angular  coordinates  is  in 
the  neighborhood  of  1  second  of  arc. 

C.  SENSITIVITY  OF  THE  IMPACT  POINT  TO  ERRORS  IN  INITIAL 
CONDITIONS 

In  the  description  of  the  Lunar  Trajectory  Program  it  was  indicated  that 

the  program  accepts  the  components  of  the  position  and  velocity  vector 

(x  ,  y  ,  z  ;  X  ,  y  ,  i  )  at  some  time  t  as  the  basic  input.  There  are 
o  ooo  oo  o 

several  disadvantages  in  using  these  inputs  in  the  error  analysis  considered 
here.  First  of  all,  most  measuring  instruments  work  in  a  spherical  coordinate 
system  which  is  more  natuial.  Thus,  the  above  components  are  connected 
with  the  spherical  coordinates  by  the  usual  transformation, 


X  — 

p  cos 

6 

cos 

X 

=  V 

cos 

a 

cos 

-5 

y  = 

p  sin 

e 

cos 

4- 

y 

r  V 

cos 

a 

sin 

(32) 

z  = 

p  sin 

z 

=  V 

s  in 

a 

Thus  the  original  inputs  are  replaced  hy  ft  ,  (p ,  a ,  (3 ,  p,  v  at  time  t^.  In  the 
equations  above,  p  is  the  magnitude  of  the  initial  position  vector,  Q  is  the 
right  ascension,  and  4>  is  the  declination.  Similarly,  v  is  the  magnitude  of 
the  initial  velocity  v’ector,  and  a,  and  /3  are  the  two  corresponding  angular 
coordinates.  The  coordinate  system  employed  here  is  an  equatorial  one  in 

the  astronomical  sense.  The  above  relations  underscore  another  difficulty. 

•  •  • 

So  far  as  the  corriputation  of  the  trajectory  is  concerned  x,  y,  z;  x,  y,  z  are 
certainly  independent  quantities.  However,  as  soon  as  the  measuring  in¬ 
strument  enters  the  scene  we  find  that  these  quantities  are  related.  Thus 
it  is,  for  instance,  impossible  to  change  p  without  changing  x,  y,  z  simul¬ 
taneously.  A  similar  situation  exists  with  regard  to  the  angular  coordinates. 
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In  view  of  the  above  it  has  been  decided  to  employ  spherical  coordinates 
in  our  study  of  impact  point  errors.  From  the  practical  point  of  view  this 
implies  that  any  uncertainty  in  one  of  the  spherical  components  must  be  con¬ 
verted  to  uncertainty  in  the  rectangular  components  before  it  can  be  used  in  the 
computer  program. 

It  has  been  found  that  in  dealing  with  high  speed  trajectories  (e.  g.  hyper¬ 
bolic),  8-place  accuracy  in  input  is  sufficient  to  furnish  accurate,  perturbed 
trajectories.  However,  in  elliptical  trajectories,  where  the  magnitude  of  the 
velocity  is  decreased,  it  has  become  apparent  that  the  lunar  program  demands 
accuracy  of  input  to  10  or  more  places  in  order  to  furnish  output  of  sufficient 
numerical  accuracy.  This  would  be  especially  true  when  mid- course  guidance 
parameters  are  to  be  generated. 

Response  of  the  impact  point  to  errors  in  one  of  the  independent  variables 
is  evaluated  by  holding  other  variables  fixed  and  varying  the  remaining  one 
over  a  range  of  values.  The  maximum  allowable  error  is  that  which  results 
in  a  "skimming"  impact  on  the  Moon.  The  amount  of  miss  due  to  an  error  in 
the  corresponding  variable  can  be  conveniently  measured  in  terms  of  the 
distance  S  on  the  surface  of  the  Moon  between  the  nominal  and  the  perturbed 
impact  points.  This  distance  is  in  effect  computed  from  six  measured 
quantities  p,  8,4-,  v,  a,  and  P ,  which  are  assumed  to  be  mutually  independent. 
Thus, 

S  -  S  (  p,  O,  <?,  V,  a  ,  /3  ).  (33) 


Since  the  deviation  from  the  nominal  impact  point  is  measured,  S  is  equiva¬ 
lent  to  an  incremental  miss,  which  to  the  first  order  of  approximation  can  be 
expressed  as 


S  =  AM  = 


3_S 

3/3/ 


A/3,  (34) 


where  .Ap  ,  A0  ,  etc.  represent  errors  in  the  corresponding  quantities. 
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It  is  then  evident  that  a  successive  independent  variation  of  one  of  the 
variables  will  result  in  relations  S  =  S  {p),  S  =  S(0),  etc.  ,  each  of  which  can 
yield  partial  derivatives  in  equation  (34).  These  derivatives  will  be  termed 
"error  or  sensitivity"  coefficients.  It  is  obvious  that  relation  (34)  assumes 
that  for  small  deviations  the  miss  can  be  written  as  a  linear  combination  of 
errors.  Just  where  a  particular  error  ceases  to  be  small  cannot  be  evaluated 
until  S  is  obtained. 

Prior  to  evaluation  of  S  the  range  of  errors  in  a  particular  variable  shouldbe 
decided  on  in  order  to  result  in  '  skimming  impact.  There  must  be  a  sufficient 
number  of  points  within  this  range,  in  order  to  obtain  S.  One  appraoch  is  to 
repeat  the  same  procedure  as  used  in  establishing  the  nominal  trajectory. 

The  final  approach  adopted  in  this  work  will  be  described  later  in  the  report. 

For  the  present,  however,  the  description  of  the  computation  as  employed 
here  will  be  continued. 


The  early  approach  was  to  hold  all  variables  but  one  constant  at  values 
corresponding  to  those  of  the  nominal  trajectory  and  to  vary  the  remaining  one 
by  small  increments.  Values  of  x,  y,  z,  x,  y,  z  corresponding  to  these 
increments  were  computed  from  equation ( 3Z)  by  employing  an  LGP-30  Computer 
subroutine.  The  resulting  quantities  are  then  fed  to  the  Lunar  Trajectory 
Program.  The  output  of  this  computation  are  the  following  quantities; 


X,  y,  z  and  r  of  the  vehicle  from  the  Earth 


X,  y,  z,  and  v  of  the  vehicle  with  respect  to  the  Earth 


X,  y,  z,  and  r  of  the  vehicle  from  the  Moon 

X,  y,  z,  and  r  of  the  vehicle  from  the  Sun 


t  -  Corresponding  time 
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The  units  employed  are  astronomical  units,  astronomical  units  per  hour, 

and  hours.  The  nominal  radius  of  the  Moon  (assumed  spherical)  was  taken  As 

_5 

R  =  1.  1625090  X  10  AU.  The  initial  values  of  d  ,  4^,  a  ,>S  are  obtained 
M 

from  equation  (32). 


As  indicated  earlier  the  run  is  terminated  by  prescribing  either  a  m.axi- 
mum  running  time  or  a  minimum  distance  from  the  Moon's  center.  In  neither 
case,  however,  are  the  coordinates  of  the  impact  point  obtained  directly. 
These  points  must  be  obtained  by  interpolation  from  the  computed  points  that 
give  the  position  of  the  vehicle  from  the  Moon  as  a  function  of  time.  The 
first  step  is  to  obtain  the  time  of  impact.  For  purposes  of  this  investigation, 
use  is  made  of  Everett's  interpolation  formula  in  the  form 

Various  quantities  in  this  relation  are  obtained  according  to  the  following 
scheme: 


^.l/2-'0-'-l 
^  1/2^  "^1  ■  "^0 


'  3/2  =  ^2  -  'l 


=  S  -  s 
0  1/2  -1/2 


^  ^3/2  ■  ^1/2 


^  S 


In  the  above  t  is  the  independent  variable  (time)  and  f  can  stand  for  r,x,  y,  z 

or  anv  other  deoendent  variable.  C  0!ist3.pts  ii# *  i?  3.r©  fiivsn  by 

2  Z  ^  ’ 


_  p  (p  -  1)  (p  -  2) 


,  F. 


P(P  -  1) (P  +  1) 


where  p  is  the  interpolation  fraction  such  that  0  <p  <  1 


V 


In  determining  the  selenocentric  coordinates  of  the  impact  point  equation 
(4)  was  employed  in  the  form 

2 

1=X,  y,  z 

A  subroutine  was  written  for  the  LGP-30  computer  to  obtain  p  from 
equation  (36}  by  successive  approMimations  using  Newton's  Method. 

The  above  computation  simultaneously  yields  values  of  x,  y,  z  of  the 
impact  point. 

At  the  time  this  study  was  begun,  and  largely  by  coincidence,  several 
runs  were  terminated  with  only  one  point  recorded  after  impact  occurred. 

As  (35)  indicates,  Everett's  interpolation  formula  required  two  values  of  the 
argument  on  either  side  of  the  derived  value  of  the  function.  To  ccmpensa.te 
for  the  lack  of  a  sufficient  number  of  tabular  points,  two  additional  sub¬ 
programs  were  written  for  the  LGP-30.  A  Newtonian  formula  was  employed 
based  on  five  points  and  differences  on  a  horizontal  line.  Also  a  six  point 
Lagrangian  interpolation  formula  was  tested.  Both  methods,  however, 
were  inadequate  because  of  their  failure  to  provide  the  necessary  degree 
of  precision.  An  accurate  value,  arrived  at  by  using  Everett's  scheme 
could  only  be  approached  to  four  places  with  Lagrange  and  Newton  methods. 


Using  this  comparison  as  the  basis,  machine  operators  have  been  advised 
to  terminate  a  run  on  a  more  comfortable  maximum  time,  or  on  impact  plus 
three  or  more  points. 


The  value  of  miss  distance  follows  then  directly  from 


cos  S 


R 


M 


(37) 
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and  N,  I  denote  nominal  and  impact  respectively,  Fina’ly 


It  must  be  realized  that  S,  as  computed  here  and  used  in  subsequent  work, 
contains  no  direction  information. 

S  can  now  be  plotted  versus  the  variable  in  question,  as,  for  instance, 
in  Figure  11.  Note  that  the  discontinuity  at  the  origin  is  the  consequence  of 
definition  of  S  and  the  manner  in  which  it  is  measured.  The  slope  of  such 
a  relation  represents  g-**'  where  a.  is  any  of  the  independent  variables. 


The  plot  of  — be  obtained  by  numerical  differentiation  of  the  Sia.) 

^  dai  ■'  -1 

relation.  Caution  must  be  exercised  in  putting  too  much  trust  in  this  result 

because  in  any  process  where  numerical  differentiation  is  involved  there  is  a 

significant  loss  of  accuracy.  This  is  particularly  true  with  regard  to  the  first 

attempts  where  the  number  of  points  defining  S  was  insufficient  as,  for 

instance,  in  Figure  12.  In  other  cases  where  the  distribution  of  points  is 

2  s 

more  favorable  — -  is  considerably  smoother,  as  shown  in  Figure  13. 

^  B  S 

In  either  case,  however,  the  linear  trend  of  S  or  -  extends  only  over 

a  limited  part  of  the  lunar  surface.  Thereafter  relation  (3)  ceases  to  be  a 
good  approximation. 


The  procedure  just  described  was  found  somewhat  wasteful  of  computing 
time,  ft  was  also  found  that  it  resulted  in  too  many  complete  misses. 

It  was  noticed,  however,  that  the  plot  of  the  distance  of  closest  approach 

r  to  the  Moon's  center  versus  error  Lcr.  resulted  in  a  curve  which  could  be 
P  1 

represented  remarkably  well  by  a  hyperbola  of  the  form 

(y-yo)^  (x-xq)'^  _  ^ 

72  ■  2 

b  a 
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1 


An  example  of  this  is  shown  in  Figure  14. 


This  situation  was  found  to  hold  for  all  runs  made  in  this  investigation. 

It  must  be  stated  emphatically  that  there  is  no  analytical  justification  for  this 
and  the  use  of  this  fact  is  predicated  strictly  on  convenience. 

The  choice  of  hyperbola  is  not  essential.  It  is  conceivable  that  other 

curves  could  serve  the  same  purpose  If  it  is  agreed  to  use  the  above  fact, 

the  intersection  of  r  { ^ ‘^. )  with  R,,  gives  the  maximum,  possible  errors 

pi  M. 

allowed,  beyond  which  the  Moon  is  missed  entirely. 

In  addition,  the  bounding  errors  will  indicate  how  Aa  should  be  distributed 

1 

to  obtain  S(a.)  with  maximum  efficiency.  Uniform  spacing  is  very  important 
especially  in  the  determination  of  the  partial  derivatives. 

An  item  from  the  preceeding  discussion  deserving  some  elaboration  is 

the  determination  of  the  fictitious  distance  of  closest  approach  r  .  As  in  the 

P 

case  of  the  impact  point,  r^  cannot  be  obtained  directly  from  the  computer, 
runs.  To  obtain  this  quantity  the  numerical  minimum  of  r  can  be  found  by 
using  various  interpolation  formulae.  This  procedure  is  not  very  accurate 
because  the  trajectory  near  the  perilune  is  rather  flat  for  the  high  velocity 
employed  here.  Secondly,  the  procedure  is  rather  tedious. 

It  IS  possible  to  obtain  r^  in  a  somewhat  different  manner  by  using  com¬ 
puted  tabular  points.  First  it  should  be  noted  that  regardless  of  velocity  the 
trajectory  which  does  not  result  in  a  capture  is  a  hyperbola  as  far  as  the 
observer  on  the  Moon  is  concerned. 

The  following  equation  can  then  be  written: 

r^  =  a(e  -  1),  (39) 

where  a  is  the  real  axis  of  the  hyperbola  and  e  its  eccentricity. 
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Now  ?.t  any  three  tabular  points  in  the  neighborhood  of  r  , 

P 


r  = - — 

^  1  f  e  cos  0  1 


1  +  e  cos  (  -  A  ) 


l+ecos{0^  -  A^) 


where  p  =  a(e  -  1)  and  S  is  the  true  anomaly.  Also, 


"l-  ^2^  ^^1 


^2  - 


A  6>=  +  A0^. 


The  increments  of  the  true  anomaly  are  obtained  from 

An  ^1  •  ^2  ^  ^  ^1-^3 

cos  A  y  = - and  cos  A  y  =  - 

^  r  r  r  r 

12  13 

Thus  in  equation  (40),  p,  e,  and  6  ,  are  unknown.  The  simuP  .ous  solution 
nf  (40)  yields 


P  = 


sin  A  y  j 

nr-A7“(cos  A  y  -  1)  +  (1  -  cos  A  y^) 


-  -  cos  A  y ,  + 

^2  ^ 


sin  A  y  1 
sin  A  y 


)s  A  y  - 


L 


! 


The  quantity  6^  is  obtained  from 


—  (-) 

P-  \  ^2  / 


The  eccentricity  follows  from 


cos  A  6^  +  tan  9^  sin  A  6 ^  . 


e  cos  d 


^  -  1. 


Finally,  a  is  obtained  from 


9 

e'  -  1 


All  quantities  necessary  to  obtain  r^  from  equation  (39)  are  now  available. 

This  computation  was  performed  on  the  LGP-30  computer. 

In  the  above  a  description  was  given  of  all  the  supplementary  computations 
required  to  obtain  the  desired  information  from  the  main  computer  runs.  These 
subroutines  could  very  profitably  be  included  in  the  main  program  in  order  to 
prevent  the  interruption  of  computation. 

D.  DISCUSSION  OF  RESULTS 

As  an  example  a  discussion  shall  be  given  of  the  results  obtained  for  the 
trajectory  of  Nov.  7,  1959. 

The  general  character  of  incremental  miss  S  as  a  function  of  A  p  i  A 
A<;6,  Av,  Aa  ,  A/3,  orp,0,d),v,a./9  is  shown  in  Figures  11,  15,  l6, 

17,  18,  19. 
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It  is  evident  from  these  curves  that  for  small  errors  (impacts  not  too 
close  to  the  limb)  S  is  a  reasonably  linear  function  of  incrennental  errors. 

As  the  impact  point  moves  closer  towa7-d  the  Moon's  limb  the  curves  break 
away  from  a  linear  variation.  Values  of  errors  for  which  the  linear  trend 
ceases  to  be  a  good  approximation  depend  on  a  particular  variable.  This 
situation  is  shown  much  more  clearly  in  plots  of  error  coefficients.  Two 
examples  are  given  in  Figures  12  and  13.  The  deviation  from  linearity  can 
be  either  gradual  or  rather  sharply  defined. 

Since  this  value  of  the  error  coefficient  is  only  of  significance  in  those 
cases  where  the  curves  of  miss  versus  error  are  linear,  the  cases  which 
fail  to  meet  this  qualification  are  not  presented  graphically. 

A  feature  which  is  common  to  all  plots  of  S  is  their  asymmetry  with 
respect  to  the  nominal  impact  point.  This  is  to  be  expected  because  the  Moon 
is  a  moving  target.  It  should  be  sufficiently  clear  that  the  larger  the  arrival  an 
the  greater  the  asymmetry  in  S  with  respect  to  the  desired  impact  point.  It 
may  be  noted  that  in  this  investigation  no  attempt  was  made  to  achieve  a  nor¬ 
mal  impact.  (Arrival  angle  is  defined  as  the  angle  between  the  velocity  vector 
and  the  local  vertical.  ) 

From  the  plots  of  S  as  they  stand  the  total  permissible  spread  of  errors 
cannot  be  readily  determined.  By  this  we  mean  themaximum  deviation  in  each 
variable  from  the  nominal  value  that  results  in  a  skimming  hit  at  each  limit. 
This  is  accomplished  best  from  the  plot  of  the  "distance  of  closest  approach" 
as  a  function  of  a  particular  error.  This  also  alleviates  the  problem  of  com¬ 
puting  too  many  runs  which  fail  to  impact  the  moon.  A  typical  example  of 
such  plot  is  shown  in  Figure  14.  The  range  of  error*?  for  other  ■''^ariables  has 
been  estimated  from  similar  plots  given  in  Figures  20,  21,  22,  23.  Similar 
estimates  were  made  for  the  November  15  and  November  23  trajectories. 
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The  range  of  errors  for  the  November  7  trajectory  is  as  follows 

-14.  5  <  A  p  <  21. 2 

-  .  21  <  A  (9  <  .64 

-  .15  <  A  <^  <  .87 
-79.  0  <  AV  <  101. 0 

. 202  <  A  a  < . 075 

Values  available  for  the  November  15  case  are 

.18  <  A  p  <  22.  0 
.  43  <  A  6>  <  .06 

.  65  <  A  (^  <  .08 

-  10.  0  <  AV  <  82.  0 

.  03  <  A  a  <  .32 

.  025  <  A  <  .  264 

For  the  November  trajectory,  the  available  values  are 

-  1.9  <  p<  55 

.  067  <  &  <  1.56 

-  .  153  <  <^  <  .274 

-  9.9  <  V  <124 

.  28  <  a  <  .41 

.  35  <  <  .  002 

Here  Ap  is  given  in  statute  miles 

AV  in  feet  per  second  and 
Aa.A/3.  A(^,  At^in  degrees 
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The  initial  conditions  used  in  the  three  cases  are  given  in  the  following 


November  7 

November  15 

November  23 

^o 

-3. 3000000  X  lO"^ 

-3. 3000000  X  10“^ 

3.  3000000  X  10“^ 

Yo 

-3. 3000000  X  lO"^ 

3. 3000000  X  10“^ 

3.  3000000  X  lO"^ 

"'o 

4.  0500000  X  lO"^ 

4. 0500000  X  10'^ 

4.  0500000  X  10'^ 

^o 

4.  6844449  x  10“^ 

_5 

4. 6844449  x  10 

-5 

4.  6844449  x  10 

7.  9198756  x  10‘^ 

-5 

5.  8280834  x  10 

-  1. 2900149  X  10"^ 

Yo 

-2.  6305573  x  lO""^ 

2.  6288784  x  lO"'^ 

2.  4008342  x  lO"'^ 

^o 

-4. 3421102  x  10“^ 

6.9638123  x  10‘^ 

5.  5450141  X  10"^ 

V 

2.  7812974  x  lO""^ 

2.  7812971  X  lO"'^ 

2.  7812971  X  lO''^ 

e 

225° 

135° 

45° 

4°57'  35" 

4°57'  35" 

4°57'  35" 

a 

-8°.  982 

14°.  5 

11°.5 

/S 

286°. 76 

77°.  5 

118°.  25 

Comparison  of  these  three  cases  indicates  that  the  geometrical  arrange¬ 
ment  of  the  three  main  bodies  has  a  significant  effect  not  only  on  the  error 
range  itself,  but  also  on  the  error  asymmetry.  For  instance,  the  tolerance 
in  A0  and  A<^  in  the  November  15  case  is  very  tight  in  the  positive  direction. 
Also  the  range  in  velocity  became  significantly  smaller. 

In  none  of  the  cases,  however,  do  the  tolerances  become  so  small  as  to 
make  the  hit  impractical  for  conditions  specified  above. 

It  is  of  interest  to  consider  the*  effect  of  errors  on  the  flight  time  of  the 
vehicle.  A  few  representative  plots  are  shown  in  Figures  25,  26,  27,  28 
and  29.  It  is  evident  from  these  that  the  variation  in  flight  time  is  nearly 
linear  with  the  magnitude  of  p  and  v.  The  variation  with  angles,  however, 
is  sharply  non-linear.  It  may  also  be  noted  that  so  far  as  the  November  7 
trajectory  is  concerned,  errors  A0,  and  AaA/9  affect  the  flight  time  in 
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opposite  directions.  Thus  negative  A  0  ,  A  tend  to  increase  the  time  of 
flight  while  negative  Aa  ,  A  yi9  tend  to  decrease  it.  As  was  to  be  expected  V 
has  the  most  serious  effect  on  the  flight  time. 


The  entire  previous  discussion  was  concerned  with  errors  in  only  one  of 
the  initial  quantities;  When  errors  in  p,  6  ,  cf:  ,  v,  a  >  J3  are  present  simul¬ 
taneously,  the  increment  in  miss  is  found  by  (34)  provided  that  precision 
measures  Ac  .  are  known.  This  expression  will,  however,  result  in  an 
estimate  that  is  generally  too  high.  If  the  errors  Ac  are  entirely  inde¬ 
pendent,  it  is  more  reasonable  to  compute  the  miss  from 


(45) 
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Conversely,  if  the  miss  is  not  to  exceed  some  predetermined  value, 
equation  (45)  can  be  used  to  specify  the  value  of  Ac^.  In  the  converse  prob¬ 
lem  a  question  arises  whether  the  effects  of  various  parameters  are  equal  or 
not.  This  question  can  be  settled  by  examining  the  plots  of  S.  In  general, 
however,  the  precision  with  which  the  parameters  must  be  measured  can  be 
estimated  from 
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where  n^  are  measures  of  the  strength  of  the  effect.  Thus,  as  indicated 


above,  A  6*  affects  S  n,  times  as  much  as 


Li  pi 


TV 
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The  quantity  AM  is 


the  relative  tolerance  on  A  M. 


Perhaps,  if  further  study  was  to  be  carried  out,  another  approach  to  the 
"total  miss"  portion  of  the  error  analysis  could  be  tried.  By  varying  the  six 
spherical  parameters  separately,  within  the  impact  region,  an  error  tube 
would  be  generated  which  would  encompass  the  total  allowable  error.  For 


these  trajectories,  statistically  speaking,  the  first  moment,  or  mean  error 
trajectory,  could  be  computed.  Using  the  mean  as  a  measure  of  location,  the 
second  moment  can  be  taken  about  it  to  obtain  the  variance,  the  square  root 
of  this  quantity  being  the  standard  deviation.  The  standard  deviation  is  merely 
a  number,  in  the  same  units  as  the  particular  parameter  in  question,  which 
measures  the  relative  extent  of  the  data  concentrated  about  the  mean  and  be¬ 
comes  larger  as  the  data  becomes  more  dispersed.  With  a  large  sample,  an 
interval  of  two  standard  deviations  will  inclvide  about  95%  of  the  trajectories. 
With  this  knowledge,  the  confidence  limits  on  the  allov/able  error  can  be  com¬ 
puted. 

However,  it  can  be  said  without  reservation  that  when  the  first  moment 
of  the  error  cone  is  computed  it  would  not  agree  with  the  computed  standard 
trajectory  unless  the  arrival  angle  of  the  trajectory  were  normal.  Immedi¬ 
ately  a  problem  becomes  evident.  By  looking  at  Figure  30,  a  plot  of  longi¬ 
tude  and  latitude  of  the  impact  points,  the  allowable  error  is  seen  to  be 
almost  no  better  than  the  nominal  trajectory  itself  for  changes  in  the  velocity 
angle  A  C.  .  The  implications  of  this  become  clear  when  it  is  realized  that  if 
a  mean  trajectory  were  to  be  computed  from  the  data  taken  about  a  non- 
normally  arriving  nominal,  the  allowable  error  at  the  extremes  would  be 
fictitious.  Under  the  same  conditions,  the  tolerances  probably  would  become 
so  small  that  arrival  at  a  predetermined  point  on  the  moon's  surface  would 
be  impossible. 

ill  light  of  the  above  discussion,  certain  desirable  procedures  can  be 
ascertained  which  would  be  of  value  in  predicting  the  likelihood  of  impact 
and  the  accuracy  of  impact  about  a  desired  point  of  the  Moon  based  on  the 
perturbations  on  the  initial  input. 

Computing  the  impact  points  in  terms  of  their  latitude  and  longitude  on 
the  apparent  disc  gives  not  only  an  indication  of  the  value  of  an  error  tube  and 
the  resull^ing  measures  of  standard  deviation,  but  also  provides  directional 
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information  as  well  as  a  measure  of  the  miss  distance.  This  information 
would  lead  to  optimization  of  computer  runs  on  a  factual  rather  than  guess¬ 
work  basis.  It  is  also  concluded  that  the  accuracy  of  prediction  within  pre¬ 
scribed  confidence  limits  is  a  direct  function  of  the  impact  angle.  In  the 
November  7  trajectory,  this  angle  was  computed  at  50°,  for  November  15, 

66°,  and  for  November  23,  65°  Tliese  angles  are  calculated  by  finding  the 
direction  cosines  of  a  straight  line  approximation  to  the  tangent  line  to  the 
hyperbola  at  the  point  of  impact.  The  direction  cosines  of  the  normal  to  the 
tangent  plane  are  then  computed.  The  products  of  the  direction  cosines  are 
summed  and  this  gives  the  cosine  of  the  angle  of  impact. 

This  portion  of  the  report  shall  be  concluded  with  a  brief  discussion  con¬ 
cerning  the  disturbing  effects  of  the  Sun  on  a  vehicle  moving  in  the  Earth- 
Moon  space. 

For  two  of  the  three  dates  used  in  this  study  the  computation  of  the  stand¬ 
ard  trajectory  was  repeated  with  the  Sun  taken  out  of  the  program. 

For  a  crude  estimate  it  is  sufficient  to  compare  the  distance  of  the  ve¬ 
hicle  from  the  Moon  for  equal  flight  times. 

For  the  November  7  case,  the  distances  differ  by  5.  3  miles  after  20.  250 
hours  (just  before  impact)  while  for  the  November  23  case,  the  difference  is 
4.  8  miles  at  20.  969  hours,  which  is  also  just  prior  to  imp  ..t.  Thus  the  Sun's 
perturbation  on  the  distance  of  the  vehicle  from  the  Moon  is  not  a  very  sig¬ 
nificant  one  for  the  trajectories  in  question. 
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VI.  LIFETIME  OF  AN  ARTIFICAL  LUNAR  SATELLITE 


The  principal  objective  of  this  phase  of  the  Lunar  Trajectory  Study  was  to 
examine  in  a  cursory  way  the  life  time  of  an  artificial  satellite  placed  in  orbit 
around  the  moon.  No  attempt  at  an  all  inclusive  analysis  of  this  problem’  was 
intended  or  made. 

Using  the  "n  body  computer  program"  in  a  restricted  four  body  analysis, 
e.  g.  ,  Earth,  Moon,  Sun  and  Vehicle;  a  near  lunar  orbit  was  run  and  some 
interesting  results  were  obtained. 

Fixing  the  altitude  of  the  injection  point  at  135.  827  st.  miles  above  the 

moons  surface  a  range  of  instantaneous  injection  velocities  were  introduced. 

The  fir  st  orbit  of  each  of  the  resulting  orbits  is  shown  in  Figures  54  and  55.  The  range 

_5 

between  escape  and  impact  has  been  covered.  Taking  the  case  V  =  3.  0  x  10 
A.  U.  /Hour  the  run  was  extended  for  25  da^/s.  The  projections  of  this  orbit 
for  the  first  revolution  are  given  in  Figures  56,  57,  and  58.  The  osculating 
orbital  elements  for  this  revolution  are 

i  =  34°. 36 

o)  =  90°.  02 

fi  =  4°. 88 

a  =  1.  458  x  10"^  A.  U. 

e  =  .  1933 

T  =  14.^157 


and  a  plot  of  the  apolune,  perilune  distanc  es  as  a  function  of  orbital  life  time 
are  given  in  Figures  59A  and  59B.  As  may  be  seen  in  Figures  59A  and  59B 
several  interesting  features  appear.  First  we  see  that  the  lifetime  of  the  orbit 
is  a  strong  function  of  the  number  of  major  bodies  carried  in  the  computations. 
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In  the  Earth,  Moon,  Sun  field  the  orbit  exceeds  25  days  (the  limit  has  not  been 
determined).  But  for  the  Earth,  Moon  field  with  the  Solar  effect  removed,  the 
lifetime  is  reduced  to  220  hours,  impact  with  the  Moon  terminating  the  run, 

A  similar  situation  exists  when  the  Earth's  influence  is  removed  with  the 
lifetime  reduced  to  only  a  few  hours. 

Secondly  there  exists  a  definite  pattern  showing  both  the  effects  of  long 
and  short  period  perturbations.  The  variation  in  the  osculating  orbital  elements 
was  derived  from  the  rectangular  components  of  the  vehicles  position  and 
velocity  at  six  hour  intervals  for  the  first  10  days  of  the  orbit.  This  was  done 
for  both  the  Earth,  Moon,  Sun  and  Earth,  Moon  geometries  with  the  results 
indicated  in  Figures  60  ,  6l  and  62  .  These  figures  clearly  show  the  rotation 
of  the  line  of  apsides  as  well  as  the  long  period  effects  in  i  and  fl.  Also  to  be 
noted  is  the  definite  divergence  between  the  two  cases.  The  length  of  time  of 
these  runs  precludes  any  obvious  identification  of  secular  terms  except  in 
T.  Care  should, however,  bt'  exercised  here  a  s  a  long  period  term  can  over  a 
short  interval  of  time  look  like  a  secular  term.  To  show  the  true  periodic 
variation  in  a,  e,  and  oj  requires  that  these  elements  be  recomputed  for 
time  intervals  of  the  order  of  one  hour  instead  of  the  six  hour  interval  employed 
in  these  figures. 

If  a  lunar  satellite  is  to  be  employed  to  determine  the  geometrical  figure 
and  internal  density  gradient  of  the  Moon  by  perturbation  analysis  of  the 
satellite's  orbits,  several  factors  are  obvious.  From  Figure  59B  we  can  see 

“8 

that  the  difference  in  perilunes  during  the  mid  portion  of  the  orbit  is  1.  207xl0" 

A.  U.  or  some  1.  12 statute  miles.  Similarly,  for  the  apolunes  we  have  a 

-8 

difference  not  exceeding  1.961x10  A.  U.  or  1.  82  miles.  Since  this  is  as  close 

_7 

an  orbit  as  one  cares  to  discuss,  first  perilune  is  1.  697x10  A.  U.  or  15.  76 
statute  miles  above  the  lunar  surface,  the  perturbations  shown  are  about  the 
maximum  that  can  be  expected.  Hence  any  tracking  equipment  must  be  able 
to  resolve  these  perturbations  with  a  high  degree  of  accuracy.  If  this  can  be 
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done  then  an  appropriate  set  of  orbital  elements  can  be  computed  for  a  known 
interval  of  time.  Then  a  variation  of  parameters  scheme  can  be  introduced. 
As  an  example  consider  the  planetary  equations  due  to  Lagrange  in  which  we 
have 
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where  O' =  -  nT,  77  -  cj  +  fl  and  6_  77  +  cr  and  the  other  elements  have  the 
conventional  meaning.  The  perturbing  forces  are  contained  in  the  disturbing 
function  R. 
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If  the  left  hand  side  of  the  above  functions  are  known  from. the  tracking 
data  it  is  possible  to  compare  these  with  values  obtained  from  computations 
based  on  an  assumed  theoretical  model.  Comparisons  can  be  made  and  in 
theory  at  least  an  improved  theoretical  model  obtained.  While  it  may  be 
possible  to  arrive  at  a  better  figure  for  the  moon  in  this  way  the  likelihood 
of  determining  the  density  gradient  is  somewhat  more  uncertain  since  the 
force  field  is  not  a  uniquely  determined  function  of  the  density  gradient. 
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VII.  LUNAR  CIRCUMNAVIGATION  AND  EARTH  RETURN 


In  addition  to  the  Lunik  III  trajectory*  another  Lunar  Circumnavigation 
and  Earth  Return  trajectory  was  analyzed  from  an  entirely  different  point  of 
view.  In  the  Lunik  III  case  we  are  primarily  interested  in  the  ability  to  re¬ 
produce  the  trajectory  of  the  vehicle  in  Earth-Moon  space  from  crude  tracking 
de.ta.  In  the  case  under  present  consideration  we  are  concerned  with  the 
generation  of  such  a  trajectory  subject  to  a  number  of  additional  constraints. 
These  constraints  are  manifest  in  two  ways,  those  associated  with  the  ascent 
and  those  associated  with  the  extraterrestial  portions  of  the  flight.  In  the 
former  such  practical  problems  as  booster  capabilities,  range  safety  limits, 
and  the  launch  on  time  problem  are  eminent.  These  must  be  matched  to  the 
geometrical  constraints  imposed  by  the  extraterrestial  portions  of  the  flight. 

An  attempt  has  been  made  in  this  section  to  indicate  the  effects  of  these 
constraints  on  a  Lunar  Circumnavigation  and  Earth  Return  trajectory  with 
particular  emphasis  oi..  matching  the  ascent  to  the  geometrical  constraints. 
Consider  the  following  as  an  initial  set  of  constraints; 

A.  ASCENT  TRAJECTORY 

1.  Launch  Site:  Cape  Canaveral 

o  o 

2.  Range  Safety  Limits:  85  -  125  in  azimuth 

3.  Firing  Azimuth  Limits  (Azimuth  of  the  velocity  vector  at  injection 

or  burnout  point)  identical  with  range  safety  limits. 

o  ^  o 

4.  Flight  path  angle  at  injection  limited  to  0  <  0  ^  3  (a  booster 

characteristic) 

B.  CONDITIONS  AT  THE  MOON 

1.  Distance  of  closest  approach  to  Moon's  surface  2000  ^  r.  .  ^  3000 


*Described  in  Scientific  Report  #1 
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2.  Vehicle  to  pass  in  front  of  moon  on  outbound  leg  and  slightly  below 
Moon's  orbital  plane.  (Necessary  to  achieve  Earth  return  in 
Northern  Hemisphere) 

3.  Transit  Time  •»  3.  25  for  outbound  leg  (enabling  vehicle  to  be  in 
vicinity  of  Moon  for  longest  possible  time) 

C.  EARTH  RETURN 

1.  Vehicle  to  return  to  the  Earth  in  the  Northern  hemisphere  and  in  a 
suitable  recovery  area. 

2.  Vehicle  to  return  to  the  Earth  in  direction  of  the  Earth's  rotation 
(direct  motion) 

3.  Vehicle  to  return  at  an  altitude  of  from  200  S  .S  300  miles  above 
the  Earth's  surface. 

In  arbitrarily  specifying  a  set  of  constraints  such  as  that  listed  above  it 
is  possible  to  overdefine  the  problem.  A  solution  m.ay  not  exist  for  a  particular 
firing  date.  An  indication  of  this  exists  in  this  case  but  an  exhaustive  study  to 
definitely  ascertain  whether  such  a  situation  is  the  case  or  not  has  not  been 
ma  de . 

To  match  the  ascent  and  geometrical  constraints  it  is  first  necessary  to 
determine  the  orientation  of  the  velocity  vector  at  the  time  of  injection.  Thus, 
we  must  specify  the  time  (t),  the  firing  azimuth  (A^)  and  the  flight  path  angle  {0) 
at  the  injection  point.  Since  we  have  already  placed  a  constraint  on  0  our 
free  parameters  become  t  and  A^.  Initially  then  we  wish  to  select  values 
of  t  and  A^  such  that  the  orbital  plane  of  our  vehicle  intersects  the  orbital 
plane  of  the  moon  some  3.  25  after  injection. 

To  obtain  preliminary  values  for  and  t  a  method  based  on  a  two  body 
approximation  was  tried.  It  was  realized  at  the  outset  that  the  final  values 
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for  A  and  t  could  only  be  obtained  from  the  n-body  program  by  trial  and 
z 

error  since  a  solution  to  the  two  point  boundary  value  problem  in  n-body 
space  does  not  exist  in  explicit  form.  However,  it  was  hoped  that  the  pre¬ 
liminary  values  would  be  sufficiently  close  to  the  final  values  for  and  t 
to  greatly  reduce  the  convergence  time.  It  is  appropriate  to  mention  at  this 
point  that  wc  have  selected  a  direct  assent  trajectory,  fully  realizing  that 
for  extreme  declinations  of  the  Moon  one  may  be  forced  to  employ  a  coasting 
orbit. 


The  results  of  such  an  approximation  give  A  as  a  function  of  t,  launching 
site  latitude  (^)  and  the  coordinates  of  the  Moon.  For  any  specific  case  <i>  and 
the  coordinates  of  the  Moon  enter  as  fixed  parameters.  For  this  problem 
we  have  taken  the  time  as  September  25,  I960, and  the  Moon's  coordinates  at 

A 

the  vehicles  time  of  arrival  (STZS  later)  as 


18  3 


-m  S 
(  2  ( .  i 


S  ^  =  -18°  19'  si'.  5 

where  ,  is  the  right  ascension  and  ?>  is  the  declination  of  the  Moon. 
H  (i 


The  injection  point  was  taken  as  1500  miles  downrange  at  an  azimuth 
value  of  110°  and  altitude  of  7  50000  ft  over  a  spherical  Earth. 

A  convenient  relation  between  the  firing  azimuth  and  the  launching  time, 
can  be  obtained  as  follows; 

Let  (i  ,  i  ,  i  )  be  unit  vectors  defining  a  geocentric  equatorial  coordinate 
X  y  z 

System  and  (  f ,  ?/  )  be  a  horizon-altitude  system  connected  with  the  injection 
point.  Then  a  unit  vector  !  along  the  firing  azimuth  is  given  by 


C  cos  A  +  ri  sin  A  . 
^  z  z 
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Rotation  into  the  (i  ,  i  ,  i  )  System  gives 

X  V  z 


f  =  -  (cos  A  Sin  dt  cos  a  ,  +  sin  A  sin  a  ,  )i 
z  ^  L  z  Lx 

+  (sin  A  cos  a  -  cos  A  sin  <;6  sin  )  i 
z  L  z  L  y 

+  (cos  <P  CCS  A  )i 
z  z 

Unit  vector  normal  to  the  plane  of  theorbitis  given  by  W  =  r  x  f 
where  r  is  the  unit  vector  defining  the  launching  site. 


From  a  dot  product  of  Vi  and  a  unit  vector  defining  the  Moon's  direction 
at  the  encounter  we  obtain 


tan  A  = 


sin  (  ) 


sin  flS  [cos  ^  “  tan  6^  ctg^] 


where 


L 
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Lauching  site  right  ascension 
right  ascension  of  the  Moon 


<(> 


declination  of  the  Moon 
launch  site  latitude 


Since  the  n-body  p-rngram  employed  in  this  search  requires  initial 
velocity  components  to  be  expressed  in  the  geocentric  equatorial  system 
it  was  convenient  to  employ  the  following  expressions: 


X  =  V. 


sin  0  cos  </)  cos  a,  -  cos  d  (cosA  sin^icosa.  +  sinA  sin  a  ) 

L  U  z  L  z  L  J 


y  =  V  sin  0  cos  0  sin  a  +  cos  0  (sin  A  cosa  -cosA  sin  0s  in  a  )| 
iL  L  zLz  LJ 

z  =  j^sin  0  sin  0  +  cos  0  cos  0  cos  A  J 
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where  Q  is  the  flight  path  angle,  is  the  total  injection  velocity, 

and  4>  is  the  latitude  of  the  injection  place. 

Choosing  now  the  launching  site,  injection  point,  lunar  coordinates,  and 

the  trip  time  as  specified  earlier,  we  can  plot  the  firing  azimuth  as  a  function 

of  time  on  Septenaber  25,  I960,  This  plot  is  shown  in  Figure  63.  (Only 

Eastward  firings  have  been  consider ed.  )  Note  that  the  range  in  firing  azimuth 

is  quite  restricted.  There  are  two  reasons  for  this.*  First  of  all  firing  on 

steep  branches  is  impractical  because  any  launching  delays  will  require  ex- 

cessive  re-adjustment  of  azimuth.  Secondly  most  of  the  diagram  lies  out- 

o  o 

side  the  range  safety  limits  of  85  to  125  . 

From  this  point  the  procedure  was  rather  straight  forward.  Three 
variables  remained  open  to  us.  These  were  launching  right  ascension  a 
total  velocity  V.^.,  and  the  flight  path  angle  Q  .  Trip  time  can  hardly  be 
considered  a  bonafide'  parameter. 

The  total  velocity  was  fixed  at  a  value  which  was  found  reasonable  from 
previous  studies.  Then  for  values  of  d  =  1°,  2°,  3°  launching  time  was  varied 

over  the  upper  allow’able  part  of  the  A  -  t  diagram.  This  is  the  region 
where  the  firing  azimuth  varies  relatively  slowly  with  launching  time. 

The  resulting  initial  conditions  x^.  y^,  z^,  x^,  y^,  z^  were  employed 
in  the  n-body  program.  The  bodies  used  were  the  Sun,  Earth,  Moon,  and 
the  vehicle.  Note  carefully  that  the  Earth's  oblatenes  s  was  retained  in  the  n-body 
program.  Also,  the  initial  conditions  as  used  are  based  on  a  two  body, 
approximation  (no  oblateness  considered). 

The  very  first  runs  indicated  two  problem  areas.  The  first  of  these  is 
that  for  the  small  range  in  Q  one  cannot  use  an  arbitrary  combination  of 
A  ,  t  .  In  fact  it  appears  that  A  ,  t  diagram  must  include  a  grid  of 

Z  JL>  Z  1^ 
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constant  Q  lines  to  be  really  useful.  The  situation  as  it  exists  shows  that  we 
are  firing  almost  at  right  angles  to  the  initial  radius  vector.  The  line  of 
apsides  of  the  resulting  orbit  turns  almost  90°  away  from  the  intended  point 
of  encounter.  One  can  compensate  for  this  effect  by  a  large  flight  path  angle. 
Yet  in  our  case  this  variable  is  restricted  to  a  narrow  range.  Thus  the  only 
way  to  correct  this  problem  is  to  employ  smaller  values  of  a  .  In  our  case 
this  forced  us  to  employ  a  value  for  =  85  which  is  practically  the  limit 
of  the  allowable  range. 

The  second  problem  is  the  fact  that  first  runs  placed  the  vehicle  far 
below  the  moon.  Part  of  the  rotation  of  the  line  of  apsides  described  above, 
and  the  great  dip  of  the  trajectory  below  the  Moon's  orbital  plane  can  be 
attributed  to  the  effect  of  Earth  oblateness. 

To  make  the  z  component  of  the  vehicle  in  the  Moon's  vicinity  acceptable 
at  all,  it  was  found  necessary  to  aim  at  a  declination  much  different  from 

that  of  the  actual  Moon.  In  our  case  the  final  value  was  in  the  neighborhood 

o  o 

ot  -8  degrees  as  compared  to  -18  for  the  actual  position  of  the  target. 

This  experience  indicates  that  the  two  body  estimates  of  the  launching 
conditions  have  an  extremely  limited  value  and  should  be  modified.  Since 
the  declination  of  the  target  point  must  be  watched  so  closely,  this  quantity 
became  in  our  case  an  additional  variable. 

Our  approach  indicated  finally  that  a  reasonable  circumnavigating 
trajectory  results  for  the  following  conditions: 

.  •  •  “  C  =  279°  22'  12" 

T 

.  •  _  C^=  -7°40" 

'  ’^T  "  2.  6200445  X  10"'^  AU/hr 

■  .  ft  ■=  2° 

S  L  ^19°  13'  22" 
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Transit  time  to  the  Moon  approximately  75  to  85  hours 
and  the  total  trip  time  between  7.  5  to  8  days. 


A  limited  error  analysis  of  this  trajectory  was  made  over  the  following 
range  of  input  parameters: 


123°4  ^  <  124?00 


-8°19'  52"  ^  '  1 

“  T 

2.  6200226X  10"^  <  V  <  2.6200666x  10’^ 

-  T  - 


o  o 

1  <  0  <  3 


One  of  these  trajectories  is  shown  in  Figures  64,  65  and  66. 


The  resulting  variation  of  distances  of  closest  approach  to  the  Moon  and 
on  return  to  the  Earth  are  shown  in  Figures  67,  68,  69  and  70. 

It  can  be  seen  that  r, ,  and  r_  as  functions  of  S  (r  reach  a  minimum  in 

M  E 

the  vicinity  of  -7  40'.  However,  these  minimum  values  do  not  satify  the 
original  specification.  Although  the  closest  approach  to  the  Moon  is 
satisfactory  and  meets  requirements,  the  value  of  r^  is  entirely  too  large. 

At  any  rate  6^  can  no  longer  be  used  to  improve  either  distance. 

The  variation  of  these  two  distances  with  0  exhibits  a  similar  trend. 

Thus  r  reaches  a  certain  minimum  which  is  contrary  to  specifications  from 

hj 

the  start.  Not  much  improvement  can  be  hoped  for  using  this  variable. 


The  next  variable,  the  velocity  V,^,  causes  changes  in  r^  and  r^  in 
opposite  directions.  The  point  of  intersection  does  not  satisfy  specifications. 
A  limited  hope  of  improving  these  two  distances  lies  in  the  fact  that  slopes 
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of  the  two  functions  are  quite  different.  Thus  at  the  cost  of  a  slight  degrada¬ 
tion  of  one  distance,  one  may  obtain  a  very  substantial  improvement  in  the 
other.  No  attempt  was  made  to  investigate  this  possibility. 

Sensitivity  of  r  and  r  to  changes  in  the  right  ascension  of  the  launching 
point  a  are  shown  in  Figure  70.  Its  nature  is  exactly  the  same  as  that 
of  the  previous  plot. 

It  appears  then  that  for  this  trajectory  we  have  reached  near  optimum 
conditions.  Despite  this  fact  the  distance  of  closest  approach  on  return  to 
the  Earth  is  entirely  unsatisfactory.  It  must  be  noted  that  the  above  discussion 
ignored  the  question  of  transfer  of  angular  momentum  during  scattering  of  the 
vehicle  by  the  Moon.  As  pointed  out  by  Egorov  and  Sedov  in  their  papers,  this 
is  a  parameter  which  is  quite  important  in  determining  characteristics  of  the 
return  leg  of  the  trajectory.  In  fact  specification  B.  Z  is  a  direct  consequence 
of  this  consideration. 

Results  of  this  study  can  be  summarized  as  follows: 

1.  Initial  conditions  established  on  the  basis  of  a  two  body  problem 
were  found  highly  unsatisfactory  when  used  in  a  more  realistic  model 
of  the  Earth-Moon  System.  One  of  the  causes  appears  to  be  the 
Earth  oblateness  and  the  restricted  range  available  for  flight  path 
angles  6  . 

2.  A  "figure  8"  trajectory  was  found  which  satisfies  nearly  all  engineering 
restrictions  at  launch. 

The  distance  of  closest  approach  at  the  Moon  is  satisfactory. 

The  distance  of  closest  approach  to  the  Earth  is  unsatisfactory,  being 
in  the  neighborhood  of  10000  miles  and  occasionally  even  higher  than 
this  value.  The  return,  however,  does  occur  ir  the  northern  hemi¬ 
sphere  in  direct  motion.  The  problem  of  proper  recovery  site  was 
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not  stadied  for  obvious  reasons. 


The  trip  time  achieved  is  satisfactory. 

The  limited  error  analysis  indicates  that  the  above  trajectory 
is  nearly  optimum  as  far  as  the  distances  of  closest  approach  are 
concerned.  Thus, little  hope  exists  for  any  further  improvement. 

It  must  be  remarked  that  the  above  was  a  direct  ascent  trajectory. 

It  is  conceivable  that  employment  of  a  coasting  arc  before  final 

injection  will  result  in  better  circumnavigation  as  well  as  recovery 

distances.  Without  question,  the  coasting  arc  will  largely  eliminate 

constraints  associated  with  the  launch  on  time  problem  and  facilitate 
solution  of  the  geometrical  problem. 

With  regard  to  trajectories  of  this  type  Figure  71  shows  the  differences 
between  considering  a  two  body  plus  oblateness,  three  body,  a  four 
body,  and  a  four  body  plus  oblatness  effect  on  close  approaches  to 
the  Moon.  Since  the  latter  three  cannot  be  handled  analytically  the 
only  hope  of  getting  a  reasonable  approximation  for  as  a  function 
of  t  rests  in  modifying  the  two  body  method  as  outlined  by  an  oblatness 
term.  No  attempt  was  made  to  do  this  on  this  contract. 
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VIII.  EPHEMERIS  COMPUTATION  -  PALLAS  AND  VESTA 


One  of  the  tasks  which  the  n-body  interplanetary  trajectory  computer 
program  is  capable  of  performing  is  the  compilation  of  ephemerides.  To  test 
this  facet  of  the  program,  it  was  decided  to  reproduce  part  of  the  orbit  for 
two  of  the  better  observed  asteroids  the  coordinates  of  which  are  tabulated  in 
the  American  Ephemeris  and  Nautical  Almanac.  Observational  inaccuracies 
in  the  ephemerides  of  artificial  earth  satellites  together  with  atmospheric 
drag  effects  precluded  their  use.  Furthermore,  they  would  only  serve  as  a 
check  on  the  near  earth  accuracy  of  the  program,  the  perturbative  forces  of 
the  planets  being  of  little  or  no  consequence. 

The  ephemerides  for  Pallas  and  Vesta,  as  given  in  the  almanac,  are 
tabulated  for  each  day  and  represent  smoothed  values  for  which  the  integra¬ 
tions  were  adjusted  along  the  entire  orbit.  A  discussion  of  the  methods  em¬ 
ployed,  intervals  selected,  etc.  can  be  found  in  Vol.  XI,  Part  IV  of  the  Astro¬ 
nomical  Papers.  The  smoothing  technique  employed  greatly  improves  the 
accuracy  of  the  ephemeris.  Individual  errors  in  the  order  of  5  seconds  of 
arc  between  the  computed  and  observed  values  of  right  ascension  and  declina¬ 
tion  is  indicative  of  the  accuracy  of  the  observational  data  for  which  the 
ephemerides  are  compiled.  Hence,  only  six  decimal  places  are  printed  out 
in  the  Almanac.  One  unit  in  the  last  decimal  place  corresponding  to  1x10  ^A.  U. 
throughout. 

Our  purpose  here  is  to  select  a  small  segment  of  observed  data  and  to 
predict  the  future  positions  of  the  body.  This  represents  the  case  most  use¬ 
ful  to  artificial  satellite  ephemeris  compilations  in  which  the  future  position 
of  the  body  is  of  interest.  This  will  be  compared  with  runs  obtained  by  se¬ 
lecting  data  over  a  larger  segment  of  the  orbit  indicating  the  improvement  to 
be  expected.  The  latter  will  indicate  the  need  for  a  time  history  (past  history 
of  the  satellite's  position)  of  some  extent  if  future  position  type  ephemerides 
are  to  he  accurately  obtained. 
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For  our  computations  we  have  used  Pallas  and  Vesta  in  the  combined 
foice  field  of  the  Sun,  Venus,  Earth,  Mars,  Jupiter  and  Saturn.  Selected 
data  on  these  two  asteroids  is  given  in  Table  1. 


TABLE  I 


Radius 

(Km) 

V  olume 

(c  m  ) 

Mass 

(grams) 

Sidereal 

Period 

(days) 

a  (A.  U.) 

e 

i (degrees) 

Pallas 

240 

22 

6x10 

22 

20x10 

1684 

2.  767 

.  233 

34.  8 

Vesta 

190 

30x10^ 

22 

10x10 

1325 

2.  361 

.  088 

7.  1 

It  should  be  noted  that  they  represent  both  extremes  with  regard  to  orbital 
eccentricity  and  inclination  that  is  found  among  the  brighter  asteroids. 

Selecting  ten  tabular  geocentric  positions  from  the  almanac,  a  numerical 
differentiation  scheme  was  employed  to  obtain  the  velocity  vector  at  one  of 
the  tabular  values  and  hence  a  complete  set  of  initial  conditions  for  the  n-body 
trajectory  program  was  obtained.  The  data  represented  a  period  of  time  of 
ten  days.  A  run  was  made  using  these  conditions.  Then  a  linear  differential 
correction  scheme  for  each  component  of  the  velocity  vector  was  applied  to 
improve  the  original  estimates  of  the  velocity  components.  This  was  accom¬ 
plished  by  employing  the  tabular  position  data  at  three  day  intervals  but  now 
extended  over  a  period  of  sixty  days.  A  set  of  normal  equations  were 
obtained  the  solution  of  which  yielded  the  desired  corrections.  This  entire 
procedure  was  again  repeated  at  three  day  intervals  but  with  the  period  ex¬ 
tended  to  one  hundred  and  fifty  days  for  Vesta,  and  with  six  day  intervals 
over  one  hundred  and  fifty  days  for  Pallas. 

The  results  of  these  computations  are  shown  in  Figure  72  for  Pallas  and 
73  for  Vesta.  As  may  be  seen,  the  ephemerides  computed  from  the  short 
time  history  soon  indicate  large  errors.  While  the  residuals  are  small  over 
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the  fitted  portion  of  each  orbit  they  soon  build  up  to  substantial  errors  further 
along  in  time.  We  can  conclude  that  in  compiling  ephemerides  of  this  type  a 
long  time  history  for  the  object  under  study  is  a  prime  requisite.  This  would 
allow  the  entire  orbit  to  be  fitted  at  one  time  a  procedure  used  in  astronomy. 
This  does  not  necessarily  mean  that  a  great  number  of  data  points  are  re¬ 
quired  but  rather  that  they  be  obtained  at  selected  intervals  over  the  entire 
orbit..  Intervals  in  the  order  of  20  to  40  days  are  common  in  astronomical 
practice.  In  the  case  of  Pallas  and  Vesta,  whose  periods  are  4.  6  and  3.  6 
years  respectively,  the  20  day  interval  necessitates  the  use  of  some  84  and 
66  points  respectively. 

An  additional  effect  that  can  be  noticed  in  Figures  72  and  73  is  a  slight 
oscillation  in  the  residuals.  A  satisfactory  explanation  of  their  cause  has 
not  as  yet  been  determined.  Generally  speaking,  the  amplitudes  of  the  oscil¬ 
lations  are  slightly  less  for  Pallas  than  for  Vesta. 
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Figure  4.  Percentage  Error  in  Velocity  as  a  Function  of  the 
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Figure  5.  Number  of  Iterations  Required  to  Reach  a  Solution 
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Figure  7.  Schematic  No. 
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Figure  13.  Error  Coofficiont  as  a  Function  of  Error  in  Initial  Velocity 


Figure  14.  Distance  of  Closest  Approach  as  a  Function  of  Initial  Position  jp] 
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Figure  16.  Miss  Distance  as  a  Function  of  Error  in  Position  Angle 
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Figure  17.  Miss  Distance  as  a  Function  of  Error  in  Initial  Velocity 
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Figure  19.  Miss  Distance  as  a  Function  of  Error  in  Velocity  Angle 
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Figure  20.  Distance  of  Closest  Approach  as  a  Function  of  Position  Angle 
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Figure  25.  Flight  Time  as  a  Function  of  Error  in  Initial  Position  \p 


Figure  26.  Error  in  Position,  Angle 


(TIME  HOURS) 


Figure  27.  Flight  Time  as  a  Function  of  Error  in  Initial  Velocity 
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Function  of  Error  in  Velocity  Angle 
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Figure  29.  Flight  Time  as  a  Function  of  Error  in  Velocity  Angle 
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Figure  31.  Miss  Distance  as  a  Function  of  Error  in  Burnout  Altitude 
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Figure  32.  Miss  Distance  as  a  Function  of  Error  in 
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Figure  35.  Miss  Distance  as  a  Function  of  Error  in  Velocity  Angle 


SI  AON 


! 


Figure  36.  Miss  Distance  as  a  Function  of  Error  in  Velocity  Angle 
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Figure  39.  Distance  of  Closest  Approach  aS  a  Function  of  Position  Angle 


Figure  41.  Distance  of  Closest  Approach  as  a  Function  of  Velocity  Angle 


RdX  I  O'^AU  NOV  23 


llo 

hJ- 

in 

V 

-o 

in 

? 

•fH 

4>> 

rH 

4J 

n 

in 

■  2 

•-* 

h 

P 

CQ 

CVJ 

■  .s 

o 

CD 

ro 

w 

<£> 

•-M 

0 

ro 

p 

o 

•  •H 

ro 

U 

c 

iH 

^  cx. 

«<1 

CVJ 


V 

2  i 

o  I 


RnXIO"®AU 


Figure  49.  Distance  of  Closest  Approach  as  a  Function  of  Position  A: 
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Figure  51.  Distance  of  Closest  Approach  as  a  Function  of  Error  in  Initial  Velocity 
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Figure  52.  Distance  of  Closest  Approach  as  a  Function  of  Velocity  Angle 
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DISTANCE  FROM  CENTER  OF  MOON  AT  TIME  OF  CLOSEST  APPROACH  (xiO'^A-U.) 
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APPENDIX  A 


MODIFICATION  OF  THE  LUNAR  TRAJECTORY  PROGRAM 
TO  N-BODY  COMPUTER  PROGRAM 


This  report  pointed  out  earlier  that  the  original  Lunar  Trajectory 
Program  had  been  extended  to  cover  all  major  bodies  of  the  Solar  System 
(n  =  9).  The  resiiltin-?  ^^quations  of  motion  differ  in  no  way  from  those  given 
in'the  Scientific  kep-it  N.;.  1.  Ti.  is,  the  equation  of  motion  of  body  m^  with 
respect  to  the  body  m,_  ie  by 


,  2 


K 


[m,  +  m. 
^  k  1 


N 

j  *  i 
j  ^  i 


j  k 


The  oblateness  correction  remains  the  same  as  in  that  Report.  The  change  to 
include  a  greater  number  of  bodies  does  not  affect  either  the  method  of 
solution  or  the  integration  method  employed.  The  heart  of  the  extended 
program  -  the  planetary  tables  -  was  described  in  the  Scientific  Report  No.  1. 

The  physical  data  appropriate  for  the  added  bodies  are  given  in  Table  I 
of  this  Appendix.  It  is  to  be  noted  that  much  of  the  data  is  included  simply 
for  interest  and  is  not  used  in  computations. 

The  present  Appendix  also  includes  the  operational  procedure  for  the 
"n-body  interplanetary  trajectory  program"  as  written  for  the  IBM  7090 
computer.  The  inforrnation  contained  in  this  procedure  is  that  required  by 
an  engineer  and  a  machine  operator  to  set  up  problems  on  the  computer. 
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In,  addition,  a  description  is  given  of  the  binary  table  tapes  used  to  obtain 
planetary  positions  and  a  flow  diagram  showing  the  general  sequence  of  com¬ 
putations  and  logic  of  the  program.  Finally  a  complete  listing  of  the  n-'body 
trajectory  program  is  provided.  • 

A.  COMPUTER  INPUT 

This  section  lists  the  computer  input  required  for  the  n-body  program, 
Ihis  covers  the  computation  of  the  trajectory  from  an  initial  velocity  and 
position. 


All  decimal  input  is  read  on  line  by  a  modified  DBG  Fortran  subroutine 
which  accepts  variable  length  fields.  A  copy  of  the  write-up  for  this  subroutine 
is  incorporated  in  Section  F  of  this  Appendix.  Note  that  the  number  of  fields 
per  card  is  arbitrary  except  that  the  first  field  of  each  Read  statement  must  start 


a  new  card.  Also  note  that  the  first  field  of  each  Read  statement  must  be 


w 


preceded  by  the  character  identifying  the  type  of  conversion.  There  are  eight 
Read  statements  in  the  program  and  the  quantities  starting  these’ statements 
will  be  designated  as  such. 


B,  N-BODY  TRAJECTORY  PROGRAM  (Operational  Directory) 

Following  is  the  list  of  the  input  quantities  and  then  the  input  for  a  sample 

problem.  All  fields  are  floating  point  numbers  except  for  starred  fields  which 

•  * 

are  integers.  The  units  used  are: 


Mass  -  Solar  mass  units. 

Time  -  hours  (Table  time  is  time  in  hours  from  the  beginning 
of  the  input  table  tape.  It  is  directly  related  to  calendar 
time.  ) 

Distance  -  Astronomical  units. 

Velocity  -  Astronomical  units /hour. 
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Read  Statement  1 


Field  1  =  k  (gravitational  constant) 

Field  2  ==  M  (Mass  of  Earth) 
e 

Field  3  =  R  (Radius  of  Earth) 
e 

Field  4  =  M  (Mass  of  Vehicle) 

V 

Field  5  =  J’  (Constant  used  for  oblateness  =  J.M^.R^) 


Read  Statement  2 


Field  1 
Field  ?. 
Field  3 
Field  4 
Field  5 


D 

emax 


D 

tmax 

D 

smax 

T  , 
eno 


start 


(Maximum  distance  of  vehicle  from  Earth) 
(Maximum  distance  of  vehicle  from  Target) 
(Maximum  distance  of  vehicle  from  Sun) 
(Maximum  trip  time  of  run) 

(Starting  trip  time  of  run) 


Read  Statement  3 


Field  1  = 


*  Field  2  = 


=:« Field  3  = 


*Field  4  = 
'•'Field  5  = 


1  if  initial  scheme  is  Encke 
0  if  initial  scheme  is  Cowell 

0  if  A  T  is  determined  by  €  test 
1  if  3  fixed  A  T's  are  used 

• 

1  if  switching  computing  scheme 
0  if  computing  scheme  is  fixed 

M  print  output  every  M  intervals 

1  sv/itch  origins 
0  do  not  switch  origins 


Read  Statement  4  (used  only  if  Field  2  of  Read  Statement  3  is  a  0. 
f  ield  '<  -  A  (Initial  A  T) 
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(Maximum  AT) 


Field  2  =  A  T 

max 

Field  3  =  e  value  to  test  minimum  accuracy  of  integration 

Read  Statement  5  (used  only  if  Field  2  of  Read  Statement  3  is  a  1.  ) 

Field  1  =  A  (  A  T  to  be  used  when  the  vehicle  is  within  3  radii  of 

origin). 

Field  2  =  ^  (  AT  to  be  used  when  the  vehicle  is  within  100  radii  of 

origin). 

Field  3  =  .A  (  A  T  to  be  used  when  the  vehicle  is  further  than  100 

radii  from  origin). 

Read  Statement  6 

< 

•  =i'Field  1  =  1^  (The  number  of  bodies  to-be  used  other  than  the  earth 

which  is  always  included). 

*Field  2  =:  Code  (Code  digit  indicating  the  body  used  as  the  initial  origin. 
The  code  is  listed  below). 

*Field  3  =  Code  (Code  digit  of  the  rarget  body). 

Read  Statement  7  (This  statement  is  read  once  for  each  body  to  be  used, 

except  the  earth.  The  number  is' obtained  from  Field  1 
of  Read  Statement  6). 

*Field  1  =  Code  (Code  digit  of  a  body  to  be  used).  ’« 

Field  2  =  M  (Mass  of  this  body) 

m 

Field  3  =  R  (Radius  of  this  body) 

m 

Read  Statement  8 

Field  1  =  X  (X  distance  of  vehicle  ftom  origin) 

Field  2  =  Y  (Y  distance  of  vehicle  from  origin) 

Field  3  =  Z  (Z  distance  of  vehicle  from  origin) 

Field  4  =  X  (X  velocity  'WRT  origin) 

Field  5  =  Y  (Y  velocity  'WRT  origin) 

Field  6  =  Z  (Z  velocity  WRT  origin) 
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Code  Digits  of  Bodies 
0  =  Earth 

« 

1  =  Sun 

2  =  Moon 

3  =  Mercury 

4  =  V  enus 

5  =  Mars 

b  =  Jupiter 

7  =  Saturn 

8  =  Uranus 

9  =  Neptune 


SAMPLji,  TKAj  E<^  i  UR\ 


Description: 

Cowell  method  only. 

Earth  is  origin  and  remains  as  origin. 

Other  bodies  included  are  - 
Sun 

Moon  (target) 

Initial  Time  is  6:00  A.  M.  ,  January  5,  I960 
Maximum  Flight  time  is  30  days  (720  hrs.  ) 

Starting  time  of  table  tape  is  0.  00,  January  1,  I960. 


X  =  4. 82537x10 

Y  =  -4.  18x10'^ 

Z  =  4. 22x10'^ 

X  =  -1.  44092x10 

Y  =  1.  967513x10 
Z  =  9.  23xl0"^ 


i 


_  .u 

3 


f 


t 


< 


The  A  T  is  to  be  determined  by  the  program  using  an  e  of  4.  0x10 
and  an  initial  AT  of  1  hr.  and  a  maximum  AT  of  8  hrs. 

Input  Cards: 

1.  F5.  1373647E-7,  3.  999 1 1226E-6,  4.  263E-5,  0,  -8.  846 148E- 18=:^ 

2.  F.  5,  .5.  1,  822.  102* 

3.  XQ,  0,  0.  1,  0* 

'  4.  FI.  8,  4E-10* 

5.  X2.  0,  2* 

6.  XI,  FI.  0,  4.  646E-3* 

7.  X2.  F3.  682i5133E-8.  1.  1637E-5* 

8.  F4.  82537E-5.  -4.  18E-5.  4.  22E-6* 

9.  -1.44092E-4,  -1.  967513E-4.  -9.  23E-6* 

C.  COMPUTER  OUTPUT 

The  following  information  for  the  n-body  integration  program  is  printed- 
out  after  every  n  integration  steps,  where  n  is  an  input-control  parameter. 

1.  Flight  time,  hours  from  start  of  trajectory 

2.  Table  time,  hours  from  beginning  of  tape 

♦ 

3.  Time  increment  of  integration  step,  hours 

4.  Planetary  code  digit  of  body  at  the  origin 

5.  Acceleration  components  of  the  vehicle  with  respect  to  the  origin, 

A.  U.  /hr^ 

6.  Velocity  components  of  the  vehicle  with  '.respect  to  the  origin,  A.  U.  /hr 

7.  Position  coordinates  of  the  vehicle  with  respect  to  the  origin,  A.  U. 
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8.  Position  coordinates  of  the  vehicle  with  respect  to  the  Earth,  A.  U. 


9.  Position  coordinates  of  the  vehicle  with  respect  to  the  target,  A.  U. 

10.  Position  coordinates  of  the  vehicle  with  respect  to  the  Sun,  A.  U. 

OPERATING  NOTES  FOR  THE  N-BODY  TRAJECTORY  PROGRAM 

1.  Tapes  Used 

All  tapes  used  in  normal  Fortran  System.  Tape  R-o,  Planet  Position. 
Tables  Ta.pe. 

2.  Sense  Switches 

Sense  switch  I  is  the  only  switch  tested.  In  the  down  position,  out¬ 
put  will  be  printed  on-line  as  well  as  on'tape  A-J.  The  sense  switch 
may  be  repositioned  at  any  time.  Printing  on  line  uses  the  Share 
No.  2  printer  board. 

3.  Card  Deck 

Normal  Fortran  system  deck  set-up  with  input  cases  following. 
Operation  is  initiated  by  the  Fortran  system. 

4.  Stops 

a.  All  Fortran  stops 

.  .  t  •  *  • 

b.  Stops  of  forrn  HTR*.  These  are  double  precision  "subroutine 
stops  caused  by  overflow.  Experience  has  shown  these  to  be 
due  to  machine  error  or  input  error. 

c.  HPli  77777  -  Error  in  two-body  solution. 


To  begin  processing  another  case  when  machine  has  stopped,  manually 
transfer  to  171  . 


DESCRIPTION  OF  BINARY -TABDE  TAPES 


E. 

The  binary-table  tapes  give  the  "table  time"  and  position  coordinates  of 
the  Sun;  Mercury,  Venus,  Earth,  Mars,  Jupiter,  Saturn,  Uranus,  Neptune, 
and  the  Moon  at  intervals  of  12  hours.  The  positions  are  specified  in  terms 
of  rectangular,  geocentric  equatorial  coordinates  referenced  to  the  mean 
equator  and  equinox  of  19^0.  0.  Table  Time  is  time  in  hours  from  the 
beginning  of  the  tape;  i.  e.  ,  the  first  time  on  the  tape  is  zero.  Zt,ro  time  may 
correspond  to  any  given  calendar  time;  however,  it  should  be  chosen  to 
anticipate  future  requirements  for  the  following  reasons; 

1..  It  is  desirable  to  minimize  the  time  used  by  the  computer  in 

searching  the  tape.  This  time  is  minimized  if  the  starting  time 
is  near  "table  time"  zero. 

2.  The  writing  of  tapes  should  be  kept  to  a  minimum  due  to  the 
relatively  long  time  required  to  write  a  tape. 

Table  Time  is  directly  related,  and  easily  converted,  to  Calendar  Time 
Qr  Julian  Time.  Table  Time  was  used  because  it  provides  certain  advantages 
which  Julian  Time  and  Calendar  Time  do  not  provide.  Calendar  Time  is 
awkward  to  use  because  the  number  of  days  per  month  and  per  year  is  not 
constant.  While  Julian  Time  does  not  present  this  problem,  the  numbers  are 
of  a  large  magnitude  with  respect  to  the  units  used  in  the  program;  i.  e.  ,  hours. 
In  order  to  reduce  round-off  error,  it  is  necessary  to  measure  the  time  with 
numbers  of  a  smaller  magnitude  than  those  provided  by  Julian  Time. 

V 

Zero  time  for  the  tape  is  January  1,  I960.  0  Ephemeris  Time,  and  the 
corresponding  Julian  day  is  2436934.5.  A  table  relating  table  day  to  Julian 
date  and  Calendar  date  may  be  found  in  Section  G  of  this  Appendix.  The 
time  of  day  for  each  listing  is  0^  E.  T.  ,  and  therefore  the  Table  Time  in  hours 
from  the  beginning  of  the  tape  for  any  given  day  may  be  found  by  multiplying 


A-9 


the  table-day  by  24  hours.  The  table  in  Section  G  covers  the  period  from 
January  1,  I960.  0  to  December  31,  1964.  0. 

The  binary  tape  is  composed  of  one  tape  with  the  actual  arrangement  of 
the  binary  information  as  follows; 

WORD  1  TIME 

WORD  2  X  for  body  1 

WORD  3  Y  for  body  1 

WORD  4  Z.  for  body  1 

WORD  5  X  for  body  2 

WORD  b  Y  for  body  2 

•  WORD  7  Z  for  body  2 


WORD  26  X  for  body  9 

WORD  27  Y  for  body  9 

WORD  28  Z  for  body  9 

WORD  29  Time 

WORD  30  X  for  body  1  ■ 

WORD  31  Y  for  body  1 

WORD  32  Z  for  body  1 

WORD  33  .  X  for  body  2  • 

etc.  - 

This  information  is  grouped  by  taking  60  sets  of  data  totaling  1*680  words 
(a  set  is  composed  of  a  time  and  all  the  associated  positions)  and  writing  one 
physical  tape  record,  except  for  the  first  record  which  has  only  5  sets  of 
data,  totaling  140  words. 
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F.  DESCRIPTION  OF  MODIFIED  DEC  FORTRAN  INPUT  ROUTINE 

This  section  describes  a  Fortran  II  BCD  input -routine  capable  of 
accepting  variable-length  fields. 


1.  Replace  the  DEC  subprogram  and  its  control  card  with  deck  input  00-. 

2.  The  lists  for  "READ"  and  "READ  INPUT  TAPE"  remain  the  same. 
Since  format  statements  are  ignored  these  may  be  anything  which 

permits  legal  compilation.  (Exception:,  see  Hollerith  No.  6  below). 

* 

3.  a.  Fields  must  be  separated  by  commas. 

b  Blanks  are  treated  as  zeros  and  blank  cards  are  ignored. 


c.  The  number  of  fields  per.  card  is  (jompletely  arbitrary  and  may 

“  vary  from  run  to  run.  The  first  field  of  each  read  statement  must 
start  a  new  card.  , 

k 

d.  The  last  field  of  every  card  must  be  terminated  by  an  asterisk. 

e.  The  type  of  conversion  is  determined  by  the  first  character  of 
a  field.  Omission  of  this  character  results  in  continuing  the 
previous  type  conversion.  (The  first  field  for  each  read  state¬ 
ment  must  contain  a  type  conversion  entry.  ) 

'  * 

f.  Signs  are  optional.  ^ 

4.  Floating  Point  Conversion 

a.  Identifying  character  F  »  • 

b.  Powers  of  10  fnay  be  represented  by  the  exponent  preceded  by  an  E. 

c.  Decimal  points  are  optional.  When  not  included  it  is  assumed 

to  be  following  the  least  significant  digit  of  the  number. 

•  • 

P 

d.  Decimal  points  are  illegal  for  exponents. 
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Examples; 


F  +  5.  8E.  1,^ 
F58, 

F.58E2,  > 

F58.  , 

F5Sr..F-l.  ^ 


Acceptable  formats  of  the 
same  number 


Integer  Conversion 

a.  Identifying  Character  X. 

b.  The  converted  number,  modulo  32767  is  stored  in  the  decrement. 

c.  Decimal  points  should  not  be  punched. 

Acceptable  formats  of  the 
same  number 

Hollerith  Conversion  (Used  only  to  replace  format  statements) 

a.  Format  statements  may  be  replaced  (but  not  the  concluding  7's) 
by  the  Hollerith  characters  if  the  associated  "READ"  statement 
has  no  list. 


Exam.ples: 

X150. 

X15-, 

X--150, 


b.  Identifying  Character  H 

c.  The  number  of  BCD  words  and  a  comma  must  immediately  follow 
the  H  with  no  blanks. 

d.  Maximum  number  of  BCD  words  99- 

e.  Column  1  of  any  continuation  card  follows  column  72  of  the 
previous  card. 


Examples: 


H4, ---(312,  7H1TEST-  =  E12.4-) 

7,  Examples: 

a.  The  following  is  an  example  of  a  read  statement,  and  cards  that 
could  be  used.  (Format  5  is  ignored.  ) 

READ  5,  N,  L.  J.  {A{I).  1=  1,  J),  {B(M),  JVl  ■-=  1,  L) 

Deck  1 

Card  1  X5,  2, ---4.  F3.  24E-08,  -8.  2E.  4,  1,  F9.  2- 
Card  2  3.  2.  5.  BE  +  4='^ 

Card  1X5,  X2,  X4,  F.  324E-7,  82  — -,  1.  0* 

Card  2  92E- 1,  320E- 02=:' 

Card  3  58.  E3« 

Deck  3 

Card  I  X . 5,  - . 2* 

Card  2 

Card  3  F.  00324E-05,  82E  +  5,  .  lEl,  9.2* 

Card  4  3.  2* 

Card  5  5800-* 

Error  Stops: 

Stop  Error  Action  to  be  taken 

HPR-1,  1  Card  does  not  end  with  Correct  card,  ready 

*or  number  of  BCD  reader,  and  start, 

words  undefined. 


I 

E 

i 

i 

I 

§ 
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Stop  Error  Action  to  be  taken 

HPR-1,2  No  comma  between  Start  to  treat  unidentified 

fields.  character  as  a  cori-ma. 

HPR-1,  3  Field  undefined.  Start  to  treat  as  floating 

point  conversion. 


Save  X  Y,  Z  as  ja  vehicle  at  yes 

the  maximum  distance 

X^,  Y-^.  from  the  Earth,  target, 

or  sun? 


G.  JULIAN  DATE  AND  CALEND.ul  DATE  VS.  TABLE -DAY 


Calendar  Day  Table  ^  Calendar  Day  Table 


Julian  Day 

(O 

E. 

T.) 

Day 

t 

Julian  Day 

(O*'  E. 

T.  ) 

Day 

2436934.5 

JAN 

It 

1960 

2436993.5 

FEB 

29t 

1960 

59 

243693.5.5 

JAN 

2t 

1960 

1 

2436994.5 

MAR 

It 

1960 

60 

2436936.5 

JAN 

3t 

1960 

2 

2436995.5 

MAR 

2t 

1960 

61 

2436937.5 

JAN 

4t 

1960 

3 

2436996.5 

MAR 

3, 

1960 

62 

2436938.5 

JAN 

5t 

1960 

4 

2436997.5 

MAR 

4, 

1960 

63 

2436939.5 

JAN 

6  f 

1960 

5 

2436998.5 

MAR 

5 1 

1960 

64 

2436940.5 

JAN 

7t 

1960 

6 

2436999.5 

MAR 

6  * 

1960 

65 

2436941.5 

JAN 

8t 

1960 

7 

2437000.5 

MAR 

7, 

1960 

66 

2436942.5 

JAN 

9t 

1960 

8 

2437001.5 

MAR 

8 1 

1960 

67 

2436943.5 

JAN 

lOt 

1960 

9 

2437002.5 

MAR 

9, 

I960 

68 

2436944.5 

JAN 

lit 

1960 

10 

2437003.6 

MAR 

lOt 

1960 

69 

243694f).5 

JAN 

12t 

1960 

11 

2437004.5 

MAR 

lit 

1960 

70 

2436946,5 

JAN 

13t 

1960 

12 

2437005.5 

MAR 

12, 

1960 

71 

2436947.5 

JAN 

14t 

1960 

13 

2437006.5 

MAR 

13, 

1960 

72 

2436948.5 

JAN 

15t 

1960 

14 

2437007,5 

MAR 

14, 

1960 

73 

2436949.5 

JAN 

16  t 

1960 

15 

243700S.5 

MAR 

15, 

1960 

74 

2436950.5 

JAN 

17« 

I960 

16 

2437009,5 

MAR 

16, 

1960 

75 

2436951.5 

JAN 

18t 

1960 

17 

2437010.5 

MAR 

17, 

1960 

76 

2436952..  5 

JAN 

19  t 

1960 

la 

2437011.5 

MAR 

18, 

1960 

77 

2436953.5 

JAN 

20t 

1960 

19 

2437012.5 

MAR 

19, 

1960 

78 

“2436954.5 

JaN 

21 1 

1960 

20 

2437013.5 

MAR 

20, 

1960 

79 

2436955.5 

JAN 

22t 

1960 

21 

2437014.5 

MAR 

21, 

1960 

80 

2436956.5 

JAN 

23t 

1960 

22 

2437015.5 

MAR 

22, 

1960 

81 

2436957.5 

JAN 

24t 

1960 

23 

2437016.5 

MAR 

23, 

1960 

82 

2436958.5 

JAN 

25t 

1960 

24 

2437017.5 

MAR 

24, 

1960 

83 

2436939.5 

JAN 

26 1 

1960 

25 

2437018.5 

MAR 

25, 

1960 

84 

2436960.5 

JAN 

27t 

1960 

26 

2437019.5 

MAR 

26* 

1960 

85 

2436961,5 

JAN 

28t 

1960 

27 

2437020.5 

MAR 

27, 

1960 

86 

2436962.!) 

JAN 

29 1 

1960 

28 

243702;i.5 

MAR 

28, 

1960 

87 

2436963.!) 

JAN 

30  t 

1960 

29 

2437022.5 

MAR 

29, 

1960 

88 

2436964.5 

JAN 

31 1 

1960 

30 

7437023.5 

MAR 

30, 

1960 

89 

2436965*5 

FEB 

It 

1960 

31 

2437024,5 

MAR 

31, 

1960 

90 

2436966.5 

FEB 

2t 

1960 

32 

437025.5 

APR 

1, 

1960 

5 1 

2436967.5 

FEB 

3t 

1960 

33 

.437026.5 

APR 

2, 

1960 

92 

2436968.5 

FEB 

4t 

1960 

34 

•437027.5 

APR 

3* 

1960 

93 

2436969.5 

FEB 

5t 

I960 

35 

2437028,5 

APR 

4, 

1960 

94 

2436970.5 

FEB 

6  t 

1960 

36 

<;437029,5 

APR 

5, 

1960 

95 

2436971.5 

FEB 

7t 

1960 

37 

437030.5 

APR 

6 , 

1960 

96 

2436972.5 

FEB 

8t 

1960 

38 

,  437031.5 

APR 

7, 

1960 

97 

2436973.5 

FEB 

9t 

1960 

39 

*;437032.5 

APR 

8, 

1960 

98 

2436974,5 

FEB 

lOt 

1960 

40 

i437033.5 

APR 

9, 

1960 

99 

2436975.5 

FEB 

lit 

1960 

41 

.?  37034.5 

APR 

10, 

1960 

100 

2436976.5 

FEB 

12  t 

I960 

42 

2  *37035.5 

APR 

11, 

1960 

101 

2436977,5 

FEB 

13t 

1960 

43 

.3  7036.5 

APR 

12, 

1960 

102 

2436978.5 

FEB 

I4t 

1960 

44 

2  37037.5 

APR 

13, 

1960 

103 

2436979.5 

FEB 

15t 

1960 

45 

2  37038.5 

APR 

14, 

I960 

104 

2436980.5 

FEB 

16 1 

1960 

46 

2*«.7039,5 

APR 

15, 

1960 

105 

2436981.5 

FEB 

17  t 

1960 

47 

2  ^7040. 5 

APR 

16, 

1960 

106 

2436982.5 

FEB 

IBt 

1960 

48 

2  7041, 6 

APR 

17, 

1960 

107 

2436983.5 

FEB 

19t 

1960 

49 

2417042.5 

APR 

18, 

1960 

108 

2436984.5 

FEB 

20 1 

1960 

50 

2**  7043. 5 

APR 

19, 

1960 

109 

2436985.5 

FEB 

21t 

1960 

51 

24’ )044.5 

APR 

20, 

1960 

110 

2436986.5 

FEB 

22* 

1960 

52. 

2'V  045,5 

APR 

21, 

1960 

111 

2436987.5 

FEB 

23t 

1960 

5  a 

? '046.6 

APR 

22, 

1960 

112 

2436988.5 

FEB 

24* 

1960 

5^ 

24  047 . 5 

APR 

23, 

1960  - 

113 

2436989*5 

TEO 

25t 

1960 

551 

24  7048, 5 

APR 

24, 

1960 

114 

2436990.5 

FEB 

26* 

1960 

5# 

24' 7349.5 

APR 

25, 

1960 

115 

2436991.5 

FEB 

27. 

1960 

5® 

24;  7.350.5 

APR 

26, 

1960 

116 

2436992.5 

FEB 

28t 

1960 

5t 

24  7...61.5 

APR 

27 , 

1960 

117 
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2437052.5 

APR 

28. 

1960 

118 

2437111.5 

JUN 

26, 

1960 

177 

2437053.5 

APR 

29, 

1960 

119 

2437112.5 

JUN 

27, 

1960 

178 

2437054,5 

APR 

30, 

1960 

120 

2437113.5 

JUN 

28, 

1960 

179 

2437055.5 

MAY 

1* 

1960 

121 

2437114.5 

JUN 

29, 

I960 

180 

2437056.5 

MAY 

2. 

1960 

122 

2437115.5 

JUN 

30, 

1960 

181 

2437057,5 

MAY 

3, 

1960 

123 

2437116.5 

JUL 

1, 

1960 

182 

2437058.5 

MAY 

4, 

1960 

124 

2437117.5 

JUL 

2, 

1960 

183 

2437059.5 

MAY 

5, 

1960 

125 

2437118.5 

JUL 

3, 

1960 

184 

2437060.5 

MAY 

6  , 

1960 

126 

2437119.5 

JUL 

4, 

1960 

185 

2437061,5 

MAY 

7, 

1960 

127 

2437120.5 

JUL 

5, 

1960 

186 

2437062,5 

MAY 

8, 

1960 

128 

2437121.5 

JUL 

6  , 

1960 

187 

2437063,5 

MAY 

9, 

1960 

)  '*9 

2437122.5 

JUL 

7, 

1960 

188 

2437064.5 

MAY 

10, 

1960 

i.  0 

2437123.5 

JUL 

8, 

1960 

189 

2437065.5 

MAY 

11, 

1960 

131 

2437124.5 

JUL 

9, 

1960 

190 

2437066.5 

MAY 

12, 

1960 

132 

243/125.5 

JUL 

10, 

1960 

191 

2437067.5 

MAY 

13, 

1960 

133 

2437126.5 

JUL 

11, 

1960 

192 

2437068,5 

MAY 

14, 

1960 

134 

2437127,5 

JUL 

12, 

1960 

193 

2437069.5 

MAY 

15, 

1960 

135 

2437128.5 

J  U  L 

13, 

1960 

194 

2437070.5 

MAY 

16  , 

1960 

136 

2437129.5 

JUL 

14, 

1960 

195 

2437071.5 

MAY 

17, 

1960 

137 

2437130.5 

JUL 

15, 

1960 

196 

4  37072.5 

MAY 

18, 

1960 

133 

2437131.5 

JUL 

16, 

1960 

197 

2437073.5 

MAY 

19, 

1960 

139 

2437132.5 

JUL 

17, 

1960 

198 

2437074,5 

MAY 

20, 

1960 

140 

2437133.5 

JUL 

18, 

1960 

199 

2437075.5 

MAY 

21, 

1960 

141 

2437134. 5 

JUL 

19, 

1960 

200 

2437076,5 

MAY 

22, 

1960 

l''‘I 

2437135.5 

JUL 

20, 

1960 

201 

2437077.5 

MAY 

23, 

1960 

143 

2437136.5 

JUL 

21 , 

1960 

202 

2437078.5 

MAY 

24, 

1960 

144 

2437137.5' 

JUL 

22, 

1960 

203 

2437079.5 

MAY 

25, 

1960 

145 

2437138.5 

JUL 

23, 

1960 

204 

2437080.5 

MAY 

26, 

1960 

146 

2437139,5 

JUL 

24, 

1960 

205 

2437081,5 

MAY 

27, 

1960 

147 

2437140.5 

JUL 

25, 

1960 

206 

2437082.5 

MAY 

26, 

1960 

148 

2437141.5 

JUL 

26, 

1960 

207 

2437083,5 

MAY 

29, 

1960 

149 

2437142.5 

JUL 

27, 

1960 

208 

2437064.5 

MAY 

30, 

1960 

150 

2437143. 5 

JUL 

28, 

1960 

209 

2437005,5 

MAY 

31, 

1960 

151 

2437144,5 

JUL 

29, 

1960 

210 

2437086,5 

JUN 

1, 

1960 

152 

2437145.5 

JUL 

30, 

1960 

211 

2^37067,5 

JUN 

2, 

1960 

153 

2437146,5 

JUL 

31, 

1960 

212 

2437068,5 

JUN 

3, 

1960 

154 

2437147,5 

AUG 

1, 

1960 

213 

2437089,5 

JUN 

4, 

19  60 

155 

2437148,5 

AUG 

2, 

1960 

214 

2437090.5 

JUN 

5, 

1960 

156 

2437149,5 

AUG 

3, 

1960 

215 

2437091,5 

JUN 

6  , 

1960 

157 

2437150.5 

AUG 

4, 

i960 

216 

2437092,5 

JUN 

7, 

1960 

158 

2437151,5 

AUG 

5, 

i960 

217 

2437093.5 

JUN 

8, 

1960 

159 

2437152.5 

AUG 

6  , 

i960 

218 

2437094,5 

JUN 

9, 

1960 

160 

2437153. 5 

AUG 

7, 

1960 

219 

2437095.5 

JUN 

10, 

1960 

161 

2437154,5 

AUG 

8, 

1960 

220 

2437096,5 

JUN 

11  , 

1960 

162 

2437155.5 

AUG 

9, 

1960 

221 

2437097,5 

JUN 

12, 

1960 

163 

2437156.5 

AUG 

10, 

1960 

222 

2437098.5 

JUN 

13, 

1960 

164 

2437157,5 

AUG 

11, 

1960 

22  3 

2437099.5 

JUN 

14, 

1960 

165 

2437158.5 

AUG 

12, 

1960 

224 

2437100,5 

JUN 

15, 

1960 

166 

2437159.5 

AUG 

13, 

1960 

225 

2437101.5 

JUN 

16, 

1960 

167 

2437160.5 

AUG 

14, 

1960 

226 

2437102,5 

JUN 

17, 

1960 

168 

2437161, 5 

AUG 

15, 

1960 

227 

2437103.5 

JUN 

18, 

1960 

169 

2437162,5 

AUG 

16, 

1960 

228 

2437104.5 

JUN 

19, 

1960 

170 

2437163,5 

AUG 

17, 

1960 

229 

2437105.5 

JUN 

20, 

1960 

171 

2437164,5 

AUG 

18, 

1960 

230 

2437106,5 

JUN 

21, 

i960 

172 

2437165.5 

AUG 

19, 

1960 

231 

2437107,5 

JUN 

22, 

1960 

173 

2437166.5 

AUG 

20, 

1960 

232 

2437108.5 

JUN 

23, 

1960 

174 

2437167.5 

AUG 

21, 

1960 

233 

2437109.5 

JUN 

24, 

1960 

175 

2437168.5 

AUG 

22, 

1960 

234 

2437110.5 

JUN 

25, 

’i960 

176 

2437169,5 

AUG 

23, 

1960 

2  35 

A 

! 


2437170.5 

AUG 

24. 

1960 

236 

2437229.5 

OCT 

22t 

1960 

295 

2437171.5 

AUG 

25. 

1960 

237 

2437230.5 

OCT 

23t 

1960 

296 

2437172.5 

AUG 

26. 

1960 

238 

2437231.5 

c:t 

24  » 

1960 

297 

2437173.5 

AUG 

27. 

1960 

239 

2437232.5 

OCT 

23, 

1960 

298 

2437174.5 

AUG 

28. 

1960 

240 

2437233.5 

OCT 

26, 

1960 

299 

2437175.5 

AUG 

29. 

1960 

241 

2437,234.5 

OCT 

27, 

1960 

300 

2437176.5 

AUG 

30. 

1960 

242 

2437235.5 

OCT 

28, 

1960 

301 

2437177.5 

AUG 

31. 

1960 

243 

2437236.5 

OCT 

29, 

i960 

302 

2437178.5 

SEP 

It 

1960 

244 

2437237,5 

OCT 

30, 

1960 

303 

2437179.5 

SEP 

2. 

1960 

245 

2437238.5 

OCT 

31, 

1960 

304 

2437160.5 

SEP 

3. 

1960 

246 

2437239.5 

NOV 

1, 

1960 

305 

24371B1.5 

SEP 

4. 

1960 

247 

2437240,' 

NOV 

2, 

1960 

306 

2437182.5 

SEP 

5* 

1960 

248 

2437241.5 

NOV 

3 , 

1960 

307 

2437183.5 

SEP 

6  * 

I960 

249 

2437242.5 

NOV 

4* 

1960 

308 

2437184.5 

SEP 

7. 

1760 

250 

24*7243.5 

NOV 

5  , 

1960 

309 

2437185.5 

SEP 

8. 

1960 

251 

243^244,5 

NOV 

6, 

1960 

310 

2437186.5 

SEP 

9* 

1960 

252 

2437245.5 

NOV 

7, 

I960 

311 

2437187.5 

SEP 

10. 

1960 

253 

2437246,5 

NOV 

e, 

1960 

312 

2437188.3 

SEP 

11. 

1960 

254 

2437247.5 

NOV 

9, 

1960 

313 

243';  189.5 

SEP 

12. 

1960 

255 

24;rT248.5 

NOV 

lOs. 

1960 

314 

<'437190.5 

SEP 

13  s 

1960 

256 

2437249,5 

NOV 

11, 

1960 

315 

2437191.5 

SEP 

14. 

1960 

257 

..4  37250.5 

NOV 

12, 

1960 

316 

1437192.5 

SEP 

15. 

1960 

258 

2637251*5 

NOV 

13, 

1960 

317 

2437193.5 

SEP 

16. 

i960 

259 

2437252 « 5 

NOV 

14, 

1960 

318 

243719^.5 

SEP 

17. 

1960 

260 

2437.253, .5 

NOV 

15, 

i960 

319 

2437195.5 

SEP 

18. 

19b(> 

261 

243V234.5 

NOV 

16  , 

1960 

320 

2437196.5 

SEP 

19. 

1960 

262 

2437255.5 

NOV 

17, 

1960 

321 

2437197.5 

SEP 

20. 

1960 

263 

2437256.5 

NOV 

18, 

1960 

322 

2437198.5 

SEP 

21. 

1960 

264 

2437257.5 

NOV 

19, 

1960 

32  3 

2437199.5 

SEP 

22. 

1960 

265 

2437258.5 

NOV 

20, 

1960 

324 

2437200.5 

SEP 

23. 

1960 

266 

2437259,5 

NOV 

21, 

1960 

325 

2437201.5 

SEP 

% 

1960 

267 

2417260,5 

NOV 

22, 

1960 

326 

2437202.5 

SEP 

25. 

i960 

268 

24J7261.5 

NOV 

23, 

1960 

327 

2437203.5 

SEP 

26. 

1960 

269 

2437262,5 

NOV 

24, 

1960 

328 

2437204.5 

SEP 

27. 

I960 

270 

24J7263.5 

NOV 

25, 

1960 

329 

2437205.5 

SEP 

26. 

1960 

271 

?4.}7264,5 

NOV 

26, 

i960 

330 

2437206.5 

SEP 

29. 

1960 

272 

24^7265,5 

NOV 

27, 

1960 

331 

2437207.5 

SEP 

30. 

1960 

273 

2437266.5 

NOV 

28* 

1960 

332 

2437208.5 

OCT 

1960 

274 

2437267,5 

NOV 

?9, 

1960 

333 

2437209.5 

OCT 

2 » 

1960 

275 

2437268,6 

NOV 

30, 

1960 

334 

2437210.5 

OCT 

1960 

276 

2437269,5 

DEC 

1* 

1960 

335 

2437211.5 

OCT 

4  f 

1960 

277 

2437270,5 

DEC 

2, 

I960 

336 

2437212.5 

OCT 

5. 

1960 

278 

2437271,5 

DEC 

3* 

1960 

337 

243721 3.5 

OCT 

6 . 

1960 

279 

2437272.5 

DEC 

4  s 

1960 

338 

2437214.5 

OCT 

7. 

1960 

280 

2437^73. 5 

DEC 

5, 

1960 

339 

2437215.5 

O'CT 

B. 

1960 

281 

2437274,5 

DEC 

6  * 

1960 

340 

2437216.5 

3Cl 

9. 

1960 

282 

2437275,5 

DEC 

7, 

1960 

341 

2437217.5 

OCT 

10. 

1960 

283 

2437276,5 

DEC 

8, 

1960 

342 

2437218.5 

OCT 

11* 

1960 

284 

2437277,5 

DEC 

9, 

1960 

343 

2437219.5 

OCT 

12. 

1960 

205 

2427278,5 

DEC 

10, 

1960 

344 

2437220.5 

OCT 

13. 

1960 

266 

24S?279,5 

DEC 

lit 

1960 

345 

2437221.5 

OCT 

14. 

1960 

207 

2437280. 5 

DEC 

12* 

1960 

346 

2437222.5 

OCT 

’5. 

1960 

2«P. 

2437281.5 

DEC 

13, 

1960 

347 

2437223.5 

OC" 

1  V 

1960 

269 

2437282.5 

DEC 

14, 

1960 

348 

2437224.5 

OCT 

17. 

1960 

290 

—  2437283,5 

DEC 

15, 

i960 

349 

2437225.5 

OCT 

IB. 

i960 

291 

2437284.6 

DEC 

16  * 

1960 

350 

2437226^^5 

O'.! 

19. 

’.•"SO 

292 

2437285,5 

DEC 

17, 

I960 

351 

2437227.5 

OCT 

20. 

1960 

293 

2437286,5 

DEC 

18, 

1960 

352 

2437228.5 

OCT 

21. 

i960 

294 

2437287, > 

DEC 

19, 

1960 

353 

A-19 


? 

: 

*  243728S.5 

DEC 

20. 

1960 

354 

2437347.5 

FEB 

17* 

1961 

i 

413  1 

• 

. 

■ 

,  2437289.5 

OEC 

21* 

1960 

355 

2437348.5 

FEB 

18* 

1961 

414  5 

2437290.5 

22* 

1960 

356 

2437349.5 

FEB 

19* 

1961 

2437291.5 

DEC 

23. 

1960 

357 

2437350.5 

FEB 

20* 

1961 

416  1 

2437292.5 

DEC 

24  . 

1960 

358 

2437351.5 

FEB 

21* 

1961 

417  f 

2437293.5 

DEC 

*.5, 

1960 

359 

2437352.5 

FEB 

22* 

1961 

418  1 

2437294.5 

DEC 

26. 

1960 

360 

2437353.5 

FEB 

23* 

1961 

419  1 

2437295.5 

DEC 

27. 

1960 

361 

2437354.5 

FEB 

24* 

1961 

420  .  J 

2437296.5 

DEC 

28t 

1960 

362 

2437355.5 

FEB 

25* 

1961 

421  a 

422  1 

2437297.5 

DEC 

29. 

1960 

363 

2437356.5 

FEB 

26* 

1961 

2437298.5 

DEC 

30. 

1960 

364 

2437357.5 

FEB 

27. 

1961 

423 

2437299.5 

DEC 

31. 

1960 

365 

2437358.5 

FEB 

28* 

1961 

424  ; 

2437300.5 

JAN 

1  * 

1961 

366 

2437359.5 

MAR 

1* 

1961 

425 

,v 

2437301.5 

JAN 

2* 

1961 

367 

2437360.5 

MAR 

2* 

1961 

426 

2437302.5 

JAN 

3* 

1961 

368 

2437361.5 

MAR 

3* 

1961 

427  , 

2437303.5 

JAN 

4* 

1961 

369 

2437362.5 

MAR 

4* 

1961 

428 

2437304.5 

JAN 

5* 

1961 

370 

2437363.5 

MAR 

5* 

1961 

429 

2437305*5 

JAN 

6  * 

1961 

371 

2437364.5 

MAR 

6  ♦ 

1961 

430 

2437306.5 

JAN 

7. 

1961 

372 

2437365.5 

MAR 

7* 

1961 

431  i 

2437307,5 

JAN 

8* 

1961 

373 

2437366.5 

MAR 

8* 

1961 

432 

2437308.5 

JAN 

9. 

1961 

374 

2437367.5 

MAR 

9* 

1961 

433  J 

2437309.5 

JAN 

10* 

1961 

375 

2437368.5 

MAR 

10* 

1961 

434  i 

2437310.5 

JAN 

11  * 

1961 

376 

2437369.5 

MAR 

11* 

1961 

435 

2437311.5 

JAN 

12* 

1961 

377 

2437370.5 

MAR 

12* 

1961 

436 

2437312.5 

JAN 

13* 

1961 

378 

2437371.5 

MAR 

13* 

1961 

437 

2437313.5 

JAN 

14* 

1961 

379 

2437372.5 

MAR 

14* 

1961 

438 

2437314,5 

JAiN 

15* 

1961 

380 

2437373.5 

MAR 

15  * 

1961 

439 

2437315.5 

JAN 

16  * 

1961 

381 

2437374.5 

MAR 

15* 

1961 

440 

2437316.5 

JAN 

17* 

1961 

382 

2437375.5 

MAR 

17* 

1961 

441 

2437317.5 

JAN 

18* 

1961 

383 

2437376.5 

MAR 

13* 

1961 

442 

2437316.5 

JAN 

19* 

1961 

384 

2437377.5 

MAR 

19* 

1961 

443 

2437319.5 

JAN 

20* 

1961 

385 

2437378.5 

MAR 

20* 

1961 

444 

2437320.5 

JAN 

21* 

1961 

386 

2437379.5 

MAR 

21* 

1961 

445 

2437321.5 

JAN 

22* 

1961 

387 

2437380.5 

MAR 

22  f 

1961 

446 

2437322.5 

JAN 

23* 

1961 

388 

2437381.5 

MAR 

23* 

1961 

447 

2437323.5 

JAN 

24* 

1961 

389 

2437382.5 

MAR 

24* 

1961 

448 

2437324.5 

JAN 

25* 

1961 

390 

2437383.5 

MAR 

25* 

1961 

449 

2437325.5 

JAN 

26* 

1961 

391 

2437384.5 

MAR 

26* 

1961 

450 

2437326.5 

JAN 

27* 

1961 

392 

2437385.5 

MAR 

27* 

1961 

451 

2437327.5 

JAN 

28* 

1961 

393 

2437386.5 

MAR 

28* 

1961 

452 

2437328.5 

JAN 

29* 

1961 

394 

2437387.5 

MAR 

29* 

1961 

453 

2437329.5 

JAN 

30. 

1961 

39  5 

2437388.5 

MAR 

30. 

1961 

454 

2437330.5 

JAN 

31* 

1961 

396 

2437389.5 

MAR 

31* 

1961 

455 

2437331.5 

FEB 

1* 

1961 

397 

2437390.5 

APR 

1* 

1961 

456  5 

2437332.5 

FEB 

2* 

1961 

398 

2437391.5 

APR 

2* 

1961 

457 

2437333.5 

FEB 

3* 

1961 

399 

2437392.5 

APR 

3* 

1961 

458 

459 

460 

2437334.5 

FEB 

4* 

1961 

400 

2437393.5 

APR 

4* 

1961 

2437333.5 

FEB 

5* 

1961 

401 

2437394.5 

APR 

5* 

1961 

2437336.5 

FEB 

6? 

1961 

402 

2437395.5 

APR 

6 » 

1961 

461 

2437337.5 

FEB 

7. 

1961 

403 

2437396.5 

APR 

7. 

1961 

462 

2437338.5 

FEB 

8* 

1961 

404 

2437397.5 

APR 

8* 

1961 

46  3 

2437339.5 

FEB 

-'9* 

1961 

^05 

2437399.5 

APR 

10* 

1961 

464 

[ 

2437340.5 

FEB 

10* 

1961 

406 

2437398.5 

APR 

9* 

1961 

465 

2437341.5 

FEB 

il. 

1961 

407 

2437400.5 

APR 

11 . 

1961 

466 

1 

2437342.5 

FEB 

12* 

1961 

408 

2437401.5 

APR 

12* 

1961 

467 

? 

2437343.5 

FEB 

13. 

1961 

409 

2437402.5 

APR 

13* 

1961 

468 

2437344.5 

FEB 

14* 

1961 

410 

2437403.5 

APR 

14* 

1961 

469 

1 

2437345.5 

FEB 

15* 

1961 

411 

2437404.5 

APR 

15* 

1961 

470 

1 

2437346.5 

F'EB 

16* 

1961 

412 

2437405.5 

APR 

16* 

1961 

471 

A-20 

1 

j 

2437406.5 

APR 

17. 

1961 

472 

2437465.5 

JUN 

15, 

1961 

531 

2437407.5 

APR 

18, 

1961 

473 

2437466.5 

JUN 

16, 

1961 

532 

2437408.5 

APR 

19, 

1961 

474 

2437467.5 

JUN 

17, 

1961 

533 

2437409.5 

APR 

20. 

1961 

475 

2437468.5 

JUN 

18, 

1961 

534 

2437410.5 

APR 

21, 

1961 

476 

2437469.5 

JUN 

19, 

1961 

535 

2437411.5 

APR 

22. 

1961 

477 

2437470.5 

JUN 

20, 

1961 

536 

2437412.5 

APR 

23. 

1961 

478 

2437471.5 

JUN 

21, 

1961 

537 

2437413.5 

APR 

24* 

1961 

479 

2437472.5 

JUN 

22, 

1961 

538 

2437414.5 

APR 

25* 

1961 

480 

2437473.5 

JUN 

23, 

1961 

539 

2437415.5 

APR 

26* 

1961 

481 

2437474.5 

JUN 

24* 

1961 

540 

2437416.5 

APR 

27. 

1961 

482 

2437475.5 

JUN 

25, 

1961 

541 

2437417.5 

APR 

28* 

1961 

483 

2437476.5 

JUN 

26* 

1961 

542 

2437418.5 

APR 

29* 

1961 

484 

2437477.5 

JUN 

27. 

1961 

543 

2437419.5 

APR 

30. 

1961 

485 

2437478.5 

JUN 

28, 

1961 

544 

2437420.5 

MAY 

1. 

1961 

486 

2437479.5 

JUN 

29, 

1961 

545 

2437421.'? 

MAY 

2. 

1961 

A87 

2437480^5 

'UN 

30, 

1961 

546 

2437422.5 

MAY 

3* 

1961 

486 

1, 

1961 

547 

2437423,5 

MAY 

A. 

1961 

489 

JUL 

2, 

1961 

548 

2437424.5 

MAY 

5, 

1961 

4:o 

fi,  'T  7  3 

JUL 

■3, 

1961 

549 

2437425.5 

MAY 

6  * 

1961 

491 

2^0 

JUu 

4, 

1961 

550 

2437426.5 

MAY 

7. 

1961 

492 

JwL 

5* 

1961 

551 

243T427.5 

MAY 

e* 

1961 

493 

r 

JUL 

6  , 

1961 

552 

2437428.5 

MAY 

9, 

1961 

494 

243Y*ti  .  - 

JUL 

7* 

1961- 

553 

2437429.5 

MAY 

10s 

1961 

495 

2437A,>0, 

8, 

1961 

554 

2437430.5 

MAY 

11. 

1961 

496 

2437489^;' 

1/  »•  r 

9, 

1961 

555 

2437431.5 

MAY 

12* 

1961 

497 

2437490.5 

JuL 

10* 

1961 

556 

2437432.5 

MAY 

13* 

1961 

498 

2437491.5 

JUL 

11, 

1961 

557 

2437433.5 

MAY 

14* 

196 1 

499 

2437492.5 

JUL 

12, 

1961 

558 

2437434.5 

MAY 

15* 

1961 

500 

2437493.5 

JUL 

13, 

1961 

559' 

2437435.5 

MAY 

16* 

1961 

501 

2437494.5 

JUL 

14, 

1961 

560 

2437436.5 

MAY 

17. 

1961 

502 

2437495.5 

JUL 

15, 

1961 

561 

2437437.5 

MAY 

18* 

1961 

503 

2437496.5 

JUL 

16, 

1961  ** 

562 

2437438.5 

MAY 

19. 

1961 

504 

2437497.5 

JUL 

17, 

1961 

563 

2437439.5 

MAY 

20. 

1961 

505 

2437498.5 

JUL 

18, 

1961 

564 

2437440.5 

MAY 

21. 

1961 

506 

2437499.5 

JUL 

19, 

1961 

565 

2437441.5 

MAY 

22. 

1961 

607 

2437500.5 

JUL 

20, 

1961 

566 

2437442.5 

MAY 

23. 

1961 

508 

2437501.5 

JUL 

21, 

1961 

567 

2437443.5 

MAY 

24. 

1961 

509 

2437502.5 

JUL 

22, 

1961 

560 

2437444.5 

MAY 

25. 

1961 

510 

2437503.5 

JUL 

23, 

1961 

569 

2437445.5 

MAY 

26. 

1961 

511 

2437504.5 

JUl. 

24, 

1961 

570 

2437446.5 

MAY 

27. 

1961 

512 

2437505.5 

JUL 

25, 

1961 

571 

2437447,5 

MAY 

26. 

1961 

513 

2437506.5 

JUL 

26, 

1961 

572 

2437448.5 

MAY 

29. 

1961 

514 

2437507.5 

JUL 

27, 

1961 

573 

2437449.5 

MAY 

30. 

1961 

515 

2437508.5 

JUL 

28* 

1961 

574 

2437450.5 

MAY 

31. 

1961 

516 

2437509.5 

JUL 

29* 

1961 

575 

2437451.5 

JUN 

1. 

1961 

517 

2437510.5 

JUL 

30* 

1961 

576 

2437452,5 

JUN 

2. 

1961 

518 

2437511.5 

JUL 

31* 

1961 

577 

2437453.5 

JUN 

3. 

1961 

519 

2437512.5 

AUG 

1* 

1961 

578 

2437454.5 

JUN 

4. 

1961 

520 

2437513.5 

AUG 

2* 

1961 

579 

2437455.5 

JUN 

5. 

1961 

521 

2437514.5 

AUG 

3* 

1961 

580 

2437456.5 

JUN 

6  . 

1961 

522 

2437515.5 

AUG 

4* 

1961 

581 

2437457.5 

JUN 

7. 

1961 

523 

2437516.5 

AUG 

5  » 

1961 

582 

2437458.5 

JUN 

6. 

1961 

524 

2437517.5 

AUG 

6  » 

1961 

583 

2437459.5 

JUN 

9. 

1961 

525 

2437518,5 

AUG 

7* 

1961 

584 

2437460.5 

JUN 

10. 

1961 

526 

2437519.5 

AUG 

8* 

1961 

585 

2437461.5 

JUN 

11. 

1961 

527 

2437520.5 

AUG 

9* 

1961 

586 

2437462.5 

JUN 

12. 

1961 

528 

2437521,5 

AUG 

10* 

1961 

587 

2437463.5 

JUN 

13. 

1961 

529 

2437522.5 

AUG 

11* 

1961 

588 

2437464,5 

JUN 

14, 

1961 

530 

2437523.5 

AUG 

12* 

1961 

589 

A-2i 


2437524.5 

AUG 

i3» 

1961 

590 

2437583.5 

OCT 

11* 

1961 

649 

2437525.5 

AJC- 

14s 

1961 

591 

2437584.5 

OCT 

12, 

1961 

6  50 

2437526.5 

AUG 

15s 

1961 

592 

2437585.5 

OCT 

13* 

1961 

651 

AUG 

16s 

1961 

593 

2437586.5 

OCT 

14* 

1961 

652 

243752fl.5 

AUG 

17s 

A  961 

594 

2437587.5 

OCT 

15* 

1961 

653 

2437529.5 

AUG 

16s 

19f  1 

595 

2437588.5 

OCT 

16* 

1961 

654 

2437530.5 

AUG 

19. 

1961 

596 

2437589.5 

OCT 

17, 

1961 

655 

2437531.5 

AUG 

20* 

1961 

697 

2437590.5 

OCT 

18* 

1961 

656 

2437532.5 

AUG 

21, 

1961 

598 

2437591.5 

OCT 

19, 

1961 

657 

2437533.5 

AUG 

22s 

1961 

599 

2'<37592.5 

OCT 

20, 

1961 

658 

2437534.5 

AUG 

23, 

1961 

600 

2437593,5 

OCT 

21, 

1961 

659 

2437535.5 

AUG 

24, 

1961 

601 

,?-42  75v«< 

aCT 

22, 

1961 

660 

2437536*5 

Ai  in 
n  w  srf 

25, 

1961 

602 

2437595.5 

nrr 

Sm  1 

O  O 

4m  V 

1  OiC 

A  *  V  A 

A  A  *1 

V  W  A 

2437537.5 

AUG 

26, 

1961 

603 

2437596,5 

OCT 

24* 

196] 

662 

2437538.5 

AUG 

27, 

1961 

604 

2437597*5 

OCT 

25* 

1961 

663 

2437539.5 

AUG 

28, 

1961 

605 

2437598.5 

OCT 

26, 

1961 

664 

2437540.5 

AUG 

29, 

1961 

606 

2437599.5 

OCT 

27, 

1961 

665 

2437541.5 

AUG 

30, 

1961 

607 

2437600. 5 

OCT 

28, 

1961 

666 

2437:.42.5 

AUG 

31* 

1961 

606 

2437601.5 

OCT 

29, 

1961 

667 

2437543.5 

S£P 

1, 

19L-: 

609 

"  2437602.5 

OCT 

30, 

1961 

668 

2437544.5 

SEP 

2 » 

754  1 

610 

2437603.5 

OCT 

31, 

1961 

669 

2437545.5 

SEP 

3* 

61a 

2437604,5 

NOV 

1, 

I9f  1 

670 

2437546.5 

SEP 

4, 

A  'SI 

612 

2437605.5 

NOV 

2* 

1961 

671 

2437547.5 

SEP 

5t 

1C61 

613 

2437606.5 

NOV 

3, 

1961 

672 

2437548.5 

SEP 

6  f 

1961 

614 

2437607.5 

NOV 

4, 

1961 

673 

2437549.5 

SEP 

7, 

1961 

615 

2437608.5 

NOV 

5* 

1961 

674 

2437550.5 

SEP 

8* 

1961 

616 

2437609.5 

NOV 

6 » 

1961 

675 

2437551.5 

SEP 

9* 

1961 

617 

2437610.5 

NOV 

7, 

1961 

676 

2437552.5 

SEP 

10, 

1961 

618 

2437611.5 

NOV 

6* 

1961 

677 

2437553.5 

SEP 

11, 

1961 

619 

2437612.5 

NOV 

9, 

1961 

678 

7437554.5 

SEP 

12, 

1961 

620 

2437613.5 

NOV 

10, 

1961 

679 

2437555.5 

SEP 

13, 

1961 

621 

2437614.5 

NOV 

11, 

1961 

680 

2437556.5 

SEP 

14, 

1961 

622 

2437615,5 

NOV 

12* 

1961 

681 

2437557,5 

SEP 

15, 

1961 

623 

2437616.5 

NOV 

13, 

1961 

682 

2437558.5 

SEP 

16  f 

1961 

624 

2437617,5 

NOV 

14, 

1961 

683 

2437559.5 

SEP 

A  (  f 

1961 

625 

2437618,5 

NOV 

15, 

1961 

684 

2437560.5 

SEP 

18* 

1961 

626 

2437619,5 

NOV 

16, 

1961 

685 

2437561,5 

SEP 

19, 

1961 

627 

2437620.5 

NOV 

17, 

1961 

686 

2437562.5 

SEP 

20, 

1961 

628 

2437621.5 

NOV 

18, 

1961 

687 

2437563.5 

SEP 

21, 

1961 

629 

2437622.5 

NOV 

19, 

1961 

688 

2437564.5 

SEP 

22, 

1961 

630 

2437623.5 

NOV 

20, 

1961 

,  689 

2437565.5 

SEP 

23 « 

1961 

631 

2437624,5 

NOV 

21, 

1961 

690 

2437566,5 

SEP 

24, 

1961 

632 

24*3762  5.5 

NOV 

22, 

1961 

691 

2437567.5 

SEP 

25, 

1961 

633 

2437626,5 

NOV 

23, 

1961 

692 

2437568.5 

SEP 

26, 

1961 

634 

24376Z7.5 

NOV 

2<- , 

1961 

693 

2437569.5 

SEP 

27, 

1961' 

635 

2437628,5 

NOV 

25* 

1961 

694 

2437570.5 

SEP 

28, 

1961 

635 

2437629,5 

NOV 

26, 

1961 

695 

2437571.5 

SEP 

29, 

1961 

637 

2437630.5 

NOV 

27, 

1961 

696 

2437572,5 

SEP 

30, 

1961  * 

635 

2437631.5 

NOV 

28* 

1961 

697 

2437572.5 

OCT 

1, 

1961 

1539 

2437632.5 

NOV 

29* 

1961 

698 

2437574,5 

OCT 

2* 

1561 

•  640 

2437633,5 

NOV 

30, 

1961 

699 

2427575.5 

OCT 

3* 

1961 

641 

2437634.5 

DEC 

1* 

1961 

700 

2437576.5 

OCT 

4, 

1961 

642 

2437635.5 

DEC 

2* 

1961 

701 

2437577*5 

OCT 

5, 

1961 

643 

2437636.5 

DEC 

3, 

1961 

702 

2437578,5 

OCT 

6  • 

1961 

644 

2437637.5 

DEC 

4* 

1961 

703 

2437579.5 

OCT 

7, 

1961 

645 

2437638.5 

DEC 

5, 

1961 

704 

2437580.5 

OCT 

8, 

1961 

64b 

2437639,5 

DEC 

6  9 

1961 

705 

2437581.5 

OCT 

1961 

647 

2437640.5 

DEC 

7, 

1961 

706 

2437582.5 

OCT 

10* 

1961 

648 

2437641,5 

DEC 

8* 

1961 

707 

A- 2?. 


2437642.5 

DEC 

9* 

1961 

708 

2437701.5 

FEB 

6* 

1962 

767 

2437643.5 

DEC 

10» 

1961 

709 

2437702.5 

FEB 

7. 

1962 

768 

2A37-i>Uh,^ 

DEC 

1 1  * 

1961 

710 

2437703.5 

FEB 

8* 

1962 

769 

2437645.5 

DEC 

12» 

1961 

711 

2437704.5 

FEB 

9. 

1962 

770 

2437646.5 

DEC 

13. 

1961 

712 

2437705.5 

FEB 

10* 

1962 

771 

2i*37bU7,3 

DEC 

14. 

1961 

713 

2437/06.5 

FEB 

11* 

1962 

772 

243764S.5 

DEC 

15. 

1961 

714 

2437707.5 

FEB 

12. 

1962 

773 

2437649.5 

DEC 

16  . 

1961 

715 

2437708.5 

FEB 

13* 

1962 

774 

2437650.5 

DEC 

17. 

1961 

716 

2437709.5 

FEB 

14. 

1962 

775 

2437651.5 

DEC 

18. 

1961 

717 

2437710.5 

FEB 

15* 

1962 

776 

2437652.5 

DEC 

19. 

1961 

718 

2437711.5 

FEB 

16* 

1962 

777 

2437653.5 

DEC 

20. 

1961 

719 

2437712.5 

FEB 

17. 

1962 

778 

2437654.5 

DEC 

21. 

1961 

720 

2437713.5 

FEB 

IS. 

1962 

779 

2437655.5 

DEC 

22* 

1961 

721 

2437714.5 

FEB 

19. 

1962 

780 

2437656.5 

DEC 

23. 

1961 

722 

2437715.5 

FEB 

20. 

1962 

781 

2437657.5 

DEC 

24. 

1961 

723 

?437716.5 

FEB 

21. 

1962 

732 

2437658.5 

DEC 

25. 

1961 

724 

2437717.5 

FEB 

22* 

1962 

783 

2437659.5 

DEC 

26 . 

1961 

725 

2437718.5 

FEB 

23* 

1962 

784 

2437660.5 

DEC 

27. 

1961 

726 

2437719.5 

FEB 

24. 

1962 

785 

2437661.5 

DEC 

28. 

1961 

727 

2437720.5 

FEB 

25* 

1962 

786 

2437662.5 

DEC 

29. 

1961 

728 

2437721.5 

FES 

26* 

1962 

787 

2437663.5 

DEC 

30. 

1961 

729 

2437722.5 

FEB 

27. 

1962 

788. 

2437664.5 

DEC 

31. 

1961 

730 

2437723.5 

FEB 

28* 

1962 

789 

2437665.5 

JAN 

1. 

1962 

731 

2437724.5 

MAR 

1* 

1962 

.79r- 

2437666.5 

JAN 

2. 

1962 

732 

2437725,5 

MAR 

2* 

1962 

791 

2437667.5 

JAN 

3. 

1962 

733 

2437726.5 

MAR 

3* 

1962 

792 

2437668.5 

JAN 

4. 

1962 

734 

2437727.5 

MAR 

4* 

1962 

793 

2437669.5 

JAN 

5. 

1962 

735 

2437728.5 

MAR 

5* 

1962 

794 

2437670.5 

JAN 

6  . 

1962 

736 

2437729.5 

MAR 

6  * 

1962 

795 

2437671.5 

JAN 

7. 

1962 

737 

2437730.5 

MAR 

7. 

1962  » 

796 

2437672.5 

JAN 

8. 

1962 

738 

2437731.5 

MAR 

3* 

1962 

797 

2437673.5 

JAN 

9. 

1962 

739 

2437732,5 

MAR 

9. 

1962 

798 

2437674.5 

JAN 

10. 

1962 

740 

2437733.5 

MAR 

10. 

1962 

799 

2437675.5 

JAN 

11. 

1962 

741 

2437734.5 

MAR 

11* 

1962 

800 

2437676.5 

JAN 

12. 

1962 

742 

2437735.5 

MAR 

12. 

1962 

ecl 

2437677.5 

JAN 

13. 

1962 

743 

2437736.5 

MAR 

13. 

1962 

802 

2437678.5 

JAN 

14. 

1962 

744 

2437737.5 

MAR 

14. 

1962 

803 

2437679.5 

JAN 

15. 

1962 

745 

2437738.5 

MAR 

15. 

1962 

804 

2437680.5 

JAN 

16. 

1962 

746 

2437739,5 

MAR 

16* 

1962 

805 

2437681.5 

JAN 

17. 

1962 

747 

2437740.5 

MAR 

17. 

1962 

806 

2437682.5 

JAN 

18. 

1962 

748 

2437741.5 

MAR 

18* 

1962 

807 

2437683.5 

JAN 

19. 

1962 

749 

2437742.5 

MAR 

19. 

1962 

808 

2437684. 5 

JAN 

20* 

1962 

750 

2437743.5 

MAR 

?.o. 

1962 

809 

2437685.5 

JAN 

21. 

1962 

751 

2437744,5 

MAF{ 

21* 

1962 

810 

2437686.5 

JAN 

22* 

1962 

752 

2437745,5 

MAR 

22* 

1962 

811 

2437687.5 

JAN 

23. 

1962 

753 

2437746.5 

MAR 

23* 

1962.  . 

812 

2437688.5 

JAN 

24. 

1962 

754 

2437747.5 

MAR 

24* 

1962 

813 

2437689.5 

JAN 

25* 

1962 

755 

2437748.5 

MAR 

25. 

1962 

Ft  14 

2437690.5 

JAN 

26  * 

1962 

756 

2437749.5 

MAR 

26* 

1962 

815 

2437691.5 

JAN 

27. 

1962 

757 

2437750.5 

MAR 

27. 

1962 

816 

2437692.5 

JAN 

28* 

1962 

758 

2437751.5 

MAR 

28* 

1962 

817 

2437693.5 

JAN 

29* 

1962 

759 

2437752,5 

MAR 

29* 

1962 

818 

2437694.5 

JAN 

30* 

.962 

760 

2437753.5 

MAR 

30* 

1962 

819 

2437695.5 

JAN 

31* 

1962 

761 

2437754,5 

MAR 

31* 

1962 

820 

2437696.5 

FEB 

A  f 

1962 

762 

2437755,5 

APR 

1* 

1962 

821 

2437697.5 

FEB 

2 » 

1962 

763 

2437756,5 

.  APR 

2* 

1962 

822 

2437698.5 

FEB 

3* 

1962 

764 

2437757,5 

APR 

3* 

1962 

823 

2437699.5 

FEB 

4* 

1962 

765 

2437758,5 

APR 

4* 

1962 

824 

2437700.5 

FEB 

5* 

1962 

766 

2437759,5 

APR 

5* 

1962 

825 

M 

I 


I 


A-23 


2437760.5 

APR 

6  ♦ 

1962 

826 

2437819,5 

JUN 

4  ♦ 

1962 

885 

2437761.5 

APR 

7. 

1962 

827 

2437820.5 

JUN 

5. 

1962 

886 

2437762.5 

APR 

6* 

1962 

828 

2437321.5 

JUN 

6  * 

1962 

887 

2437763.5 

APR 

9. 

1962 

829 

2437822.6 

JUN 

7. 

1962 

888 

2437764.5 

APR 

10. 

1962 

830 

2437823.5 

JUN 

e« 

1962 

889 

2437765.5 

APR 

11. 

1962 

831 

2437824.5 

JUN 

9  » 

1962 

890 

2437766,5 

APR 

12. 

1962 

832 

2437825.5 

JUN 

10. 

1962 

891 

2437767.5 

APR 

13. 

1962 

833 

2437826.5 

JUN 

11 . 

1962 

892 

2437768.5 

APR 

14. 

1962 

834 

2437827.5 

JUN 

12* 

1962 

893 

2437769.5 

APR 

15. 

1962 

835 

2437828.5 

JUN 

13. 

1962 

894 

2437770.5 

APR 

16. 

1962 

836 

2437629.5 

JUN 

14. 

1962 

895 

2437771.5 

APR 

17. 

1962 

837 

2437830.5 

JUN 

15. 

1962 

896 

2437772.5 

APR 

18. 

1962 

838 

2437831.5 

JUN 

16. 

1962 

897 

2437773.5 

APR 

19. 

1962 

839 

2437332.5 

JUN 

17, 

1?62 

898 

2437774.5 

APR 

20. 

1962 

040 

2437833.5 

JUN 

18. 

1962 

899 

2437775.5 

APR 

21. 

1962 

841 

2^.37834.5 

JUN 

19. 

1962 

900 

2437776.5 

APR 

22. 

1962 

842 

2437835.5 

JUN 

20. 

1962 

901 

2437777.5 

APR 

23. 

1962 

843 

2437836.5 

JUN 

21  . 

1962 

902 

2437776.5 

APR 

24. 

1962 

844 

2437337.5 

JUN 

22. 

1962 

903 

2437779.5 

APR 

25. 

1962 

845 

243f838,5 

JUN 

23. 

1962 

904 

2437780.5 

APR 

26  . 

1962 

846 

2437839.5 

JUN 

24. 

1962 

905 

2437781.5 

APR 

27. 

1962 

847 

2437840.5 

JUN 

25 . 

1962 

906 

2437732.5 

APR 

28. 

1962 

848 

2437841.5 

JUN 

26  .• 

196? 

907 

2437783.5 

APR 

29. 

1962 

349 

2437842.5 

JUN 

27, 

1962 

908 

2437784.5 

APR 

30. 

1962 

850 

2'.37643. 5 

JUN 

28  f 

1962 

909 

2437785.5 

MAY 

1. 

1962 

851 

2437844.5 

JUN 

29. 

1962 

910 

2437786.5 

•  MAY 

2. 

1962 

852 

2437645.5 

JUN 

30. 

1962 

911 

2437787.5 

MAY 

3. 

1962 

853 

2i:»37ft4f».  5 

J  U  L 

1  . 

1  9^>2 

®12 

2437788.5 

MAY 

4. 

1962 

854 

2437847.5 

JUL 

2. 

1962 

913 

2437789.5 

MAY 

5» 

1962 

855 

*  2437848.5 

JUL 

3. 

1962 

914 

2437790.5 

MAY 

6 . 

1962 

856 

2437849.5 

JUL 

4. 

1962 

915 

2437791.5 

MAY 

7. 

1962 

857 

2437850.5 

JUL 

5. 

1962 

916 

2437792.5 

MAY 

8  « 

1962 

858 

24.^7851.=  5 

JUL 

6  ; 

1962 

91  7 

2437793.5 

MAY 

9  : 

1962 

859 

2V37852.5 

*  JUL 

7. 

1962 

918 

2437794.5 

MAY 

10. 

1962 

O  iL  A 

W  V  V 

2437853.5 

JUL 

8. 

1962 

919 

2437795.5 

MAY 

11. 

1962 

861 

2437854.5 

JUL 

9. 

1962 

920 

2437796.5 

MAY 

12. 

1962 

862 

2437855.5 

JUL 

10. 

1962 

921 

2437797.5 

MAY 

13. 

1962 

863 

2437856.5 

JUL 

11. 

1962 

922 

2437798.5 

MAY- 

14. 

1962 

864 

2:4378  5  7.5 

JUL 

12, 

1962 

923 

2437799.5 

MAY 

15i 

1962 

865 

2457658.5 

JUL 

13. 

1962 

924 

2437800.5 

MAY 

16. 

1962 

866 

2437859.5 

JUL 

14. 

1962 

925 

2437801.5 

MAY 

17. 

1962 

867 

2437660. 5 

JUL 

15  . 

1962 

926 

2437802.5 

MAY 

18. 

1962 

868 

2437861.5 

JUL 

16. 

1962 

927 

2437803.5 

MAY 

19. 

1962 

869 

•  2437862.5 

JUL 

17. 

1962 

928 

2437804.5 

MAY 

20. 

1962 

870 

2437863.5 

JUL 

16. 

1962 

929 

2437805.5 

MAY 

21. 

1962 

671 

2437864.5 

JUL 

19. 

1962 

930 

2437806.5 

MAY 

22. 

1962 

872 

2437865.5 

JUL 

20. 

1962 

931 

2437807.5 

MAY 

23» 

1962 

873 

2437866.5 

JUL 

21. 

1962 

932 

2437808.5 

MAY 

24. 

1962 

874 

2437867.5 

II II 

W 

22. 

1  O  A  O 

*  W  Cb 

933 

2437809.5 

MAY 

25. 

1962 

875 

2437868.5 

JUL 

23. 

1962 

934 

2437810.5 

MAY 

26. 

1962 

876 

2437669.5 

JUL 

24. 

1962 

935 

2437811.5 

MAY 

27. 

1962 

877 

2437870.5 

JUL 

25. 

1962 

936 

2437812.5 

MAY 

28. 

1962 

878 

2437871.5 

JUL 

26. 

1962 

937 

2437813.5 

MAY 

29. 

1962 

879 

2437872.5 

JUL 

27. 

1962 

938 

2437814.5 

MAY 

30. 

1962 

880 

2437873.5 

JUL 

28. 

1962 

939 

2437815.5 

MAY 

31. 

1962 

661 

2437874.5 

JUL 

29. 

1962 

940 

2437816.5 

JUN 

1. 

1962 

682 

2437876.5 

JUL 

30. 

1962 

941 

2437817.5 

JUN 

2. 

1962 

883 

2437876.5 

JUL 

31. 

1962 

942 

2437818.5 

JUN 

3. 

1962 

834 

*  2437877.5 

AUG 

1. 

1962 

943 

A- 24 


1 

) 

1 

1 


2437078.5 

AUG 

2, 

1962 

944 

2437937.5 

SEP 

30, 

1962 

1003  m 

2437879*5 

AUG 

3* 

1962 

945 

2437938.5 

OCT 

1, 

1962 

1004  1 

2437860.5 

AUG 

4* 

1962 

946 

2437939.5 

OCT 

2, 

1962 

1005  1 

2437881.5 

AUG 

5* 

1962 

947 

2437940.5 

OCT 

3, 

1962 

1006  1 

2437882.5 

AUG 

6  * 

1962 

943 

2437941,5 

OCT 

4, 

1962 

1007  f 

2437883.5 

AUG 

7. 

1962 

949 

2437942.5 

OCT 

5, 

1962 

1008  m 

2437884.5 

AUG 

8* 

1962 

950 

2437943.5 

OCT 

6, 

1962 

1009  ■ 

2437885.5 

AUG 

9* 

1962 

951 

2437944.5 

OCT 

7, 

1962 

1010  i 

2417886.5 

AUG 

10* 

1962 

952 

2437945.5 

OCT 

8, 

1962 

1011  * 

2437887.5 

AUG 

11, 

1962 

953 

2437946.5 

OCT 

9, 

1962 

1012  i 

2437888.5 

AUG 

12, 

1962 

954 

2437947.5 

OCT 

10, 

1962 

1013  ff 

2437889.5 

AUG 

13, 

1962 

955 

2437948.5 

OCT 

11, 

1962 

1014  f 

2437890.5 

AUG 

14, 

1962 

956 

2437949.5 

OCT 

12, 

1962 

1015  . 

2437891.5 

AUG 

15, 

1962 

957 

2437950.5 

OCT 

13, 

1962 

1016  \ 

2437892.5 

AUG 

16, 

1962 

958 

2437951.5 

OCT 

14, 

1962 

1017  i 

2437893.5 

AUG 

17, 

1962 

959 

2437952.5 

OCT 

15, 

1962 

1018  i 

2437894.5 

AUG 

18, 

1962 

960 

2437953.5 

OCT 

16, 

1962 

1019  ■ 

2437895.5 

AUG 

19, 

1962 

961 

2437954,5 

OCT 

17, 

1962 

1020  ; 

2437896.5 

AUG 

20, 

1962 

962 

2437955.5 

OCT 

18, 

1962 

1021  : 

2437897.5 

AUG 

21, 

1962 

963 

2437956.5 

OCT 

19, 

1962 

1022 

2437898.5 

AUG 

22, 

1962 

964 

2437957.5 

OCT 

20, 

1962 

1023  , 

2437899.5 

AUG 

23, 

1962 

965 

243795S.5 

OCT 

21, 

1962 

1024 

2437900.5 

AUG 

24, 

1962 

966 

2437959.5 

OCT 

22, 

1962 

1025 

2437901.5 

AUG 

1962 

OA? 

?<‘37960-  s 

23; 

1962 

1026 

.43’ 902.5 

AUG 

^  W  * 

1  7q2 

2437961.5 

OCT 

24, 

1962 

1027 

24^7903. 5 

AUG 

27, 

1962 

969 

2437962,5 

CCT 

25- 

1962 

1020 

2437904,5 

AUG 

28, 

1962 

970 

2437963.5 

OCT 

26, 

1962 

1029 

2437905.5 

AUG 

29, 

1962 

971 

2437964.5 

OCT 

27, 

1962 

1030 

2437906.5 

.  AUG 

30, 

1962 

972 

2437965.5 

OCT 

25  * 

1962 

1031 

2437907,5 

>  AUG 

31, 

1962 

973 

2437966.5 

OCT 

29, 

1962 

1032 

2437908.5 

SEP 

1, 

1962 

974 

2437967.5 

OCT 

30, 

1962 

1033  ' 

2437909i5 

SEP 

2, 

1962 

975 

2437968.5 

OCT 

31 , 

1962 

1034  . 

2437910<5 

SEP 

3, 

1962 

976 

2437969.5 

NOV 

1, 

1962 

1035  • 

2437911.5 

4, 

1962 

977 

2437970.5 

NOV 

2, 

1962 

1036 

2437912,5 

SEP 

5, 

1962 

978 

2437971.5 

NOV 

3, 

1962 

1037  i 

2437913.5 

SEP 

6, 

1962 

979 

2437972.5 

NOV 

4, 

1962 

1038  ' 

2437914,5 

SEP 

7, 

1962 

980 

2437973.5 

NOV 

5 , 

1962 

1039  , 

2437915,5 

SEP 

8, 

1962 

981 

2437974.5 

NOV 

6  , 

1962 

1040  \ 

2437916.5 

SEP 

9, 

1962 

982 

2437975.5 

NOV 

7, 

1962 

1041  ^ 

2437917,5 

SEP 

10, 

1962 

983 

2437976.5 

NOV 

8, 

1962 

1042'  ; 

2437918,5 

SEP 

11, 

1962 

984 

2437977.5 

NOV 

9, 

1962 

1043  j 

2437919,5 

SEP 

12, 

1962 

985 

2437978.5 

NOV 

10, 

1962 

1044  i 

2437920.5 

SEP 

13, 

1962 

986 

2437979.5 

NOV 

11, 

1962 

1045  ' 

2437921,5 

SEP 

14, 

1962 

987 

2437980.5 

NOV 

12, 

1962 

1046 

2437922,5 

SEP 

15, 

1962 

988 

2437981.5 

NOV 

13, 

1962 

1047  j 

2437923.5 

SEP 

16, 

1962 

989 

243798^.5 

NOV 

14, 

1962 

1048  j 

2437924,5 

SEP 

17, 

1962 

990 

2437983.5 

NOV 

15, 

1962 

1049  ’ 

2437925,5 

SEP 

18, 

1962 

991 

2437984.5 

NOV 

16, 

.1962 

1050  1 

2437926.5 

SEP 

19, 

1962 

992 

2437985.5 

NOV 

17, 

.1962 

1051  i 

2437927,5 

SEP 

20, 

1962 

993 

2437986.5 

NOV 

18, 

1962 

1052  i 

2437928.5 

SEP 

21, 

1962 

994 

2437987.5 

WOV 

19, 

1962 

1053 

2437929.5 

SEP 

22, 

1962 

995 

2437986.5 

NOV 

20, 

1962 

1054  1 

2437930.5 

SEP 

23, 

1962 

996 

2437989.5 

NOV 

21, 

1962 

1055 

2437931.5 

SEP 

24, 

1962 

997 

2437990.5 

NOV 

22, 

1962 

1056  j 

2437932.5 

SEP 

25, 

1962 

998 

2437991.5 

NOV 

23, 

1962 

1057  - 

2437933,5 

SEP 

26  , 

1962 

999 

2437992.5 

NOV 

24, 

1962 

■  1058 

243/934,5 

SEP 

27, 

1962 

1000 

2437993.5 

NOV 

25, 

1962 

1059  : 

2437935, f 

SEP 

28, 

1962 

1001 

2437994.5 

NOV 

26, 

1962 

1060 

2437936.5 

SEP 

29, 

1962 

1002 

2437995.5 

NOV 

27, 

1962 

1061 

9 
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2437996.5 

NOV 

28, 

1962 

1062 

2438055.5 

JAN 

26, 

1963 

1121 

2437997.5 

NOV 

29, 

1962 

1063 

2438056.5 

JAN 

27, 

1963 

1122 

2437998,5 

NOV 

30, 

1962 

1064 

2438057.5 

JAN 

28, 

1963 

1123 

2437999,5 

DEC 

1, 

1962 

1065 

2438058.5 

JAN 

29, 

1963 

1124 

2438000,5 

DEC 

2, 

1962 

1066 

2438059.5 

JAN 

30, 

1963 

1125 

2438001,5 

DEC 

3, 

1962 

1067 

243C060-5 

JAN 

31, 

1963 

1126 

2438002,5 

DEC 

4, 

1962 

1068 

2438061.5 

FEB 

1, 

1963 

1127 

2438003.5 

DEC 

5, 

1962 

1069 

2438062.5 

FEb 

2, 

1963 

1126 

2438004.5 

DEC 

6 , 

1962 

1070 

2438063.5 

FED 

3, 

1963 

1129 

2438005.5 

DEC 

7. 

1962 

1071 

2438064.5 

FEB 

4, 

1963 

1130 

2438006.5 

DEC 

8, 

1962 

1072 

2438065. 5 

FEB 

5, 

1963 

1131 

2438007.5 

DEC 

7  9 

1962 

1073 

2438066.5 

FEB 

6  , 

1963 

1132 

2438008.5 

DEC 

10, 

1962 

1074 

2438067.5 

FEB 

7, 

1963 

1133 

2438009.5 

DEC 

11, 

1962 

1075 

2438068.5 

FEB 

8, 

1963 

1134 

2438010.5 

DEC 

12, 

1962 

1076 

2438069.5 

FEB 

9, 

1963 

1135 

2438011.5 

DEC 

13, 

1962 

1077 

2438070.5 

FEB 

10, 

1963 

1136 

2438012*5 

DEC 

14, 

1962 

1078 

2438071.5 

FEB 

11, 

1963 

1137 

2438013.5 

DEC 

15, 

1962 

1079 

2438072.5 

FEB 

12, 

1963 

1138 

2438014,5 

DEC 

16 , 

1962 

■  1080 

2438073.5 

FEB 

13, 

1963 

1139 

2438015.5 

DEC 

17, 

1962 

1081 

2438074.5 

FEB 

14, 

1963 

1140 

2438016.5 

DEC 

18, 

1962 

1082 

2436075.5 

FEB 

15, 

1963 

1141 

2438017.5 

DEC 

19, 

1962 

1083 

2438076.5 

FEB 

14« 

1963 

1142 

24 i -5;:  '3.5 

DEC 

20, 

1962 

1084 

2438077.5 

FEB 

17, 

1963 

1143 

2436019. 5 

DEC 

21, 

1962 

1085 

2438078*5 

FEB 

18, 

1963 

1144 

7.  n  O  ^  /N  S 

^  f 

1  7  W  & 

1 036 

*  7*3 

1  Uii^ 

1  7 

1563 

1 1 43 

2438021.5 

DEC 

23, 

1962 

1087 

2438080.5 

FEB 

20, 

1963 

1146 

2438022*5 

DEC 

24, 

1962 

1088 

2438081.5  . 

FEB 

21, 

1963 

1147 

2438023.5 

DEC 

25, 

1962 

1089 

2438082.5 

FEB 

22, 

1963 

1146 

2438024.5 

DEC 

26 , 

1962 

1090 

2436063 . 5 

FEB 

23t 

;963 

1149 

2438025.5 

DEC 

'27, 

1962 

1091 

2438084.5 

FEB 

24, 

1963 

1150 

2438026.5 

DEC 

28, 

1962 

1092 

2438085.5 

FEB 

23, 

1963 

1151 

2438027.5 

DEC 

29, 

1962 

1093 

2438086.5 

F-EB 

26, 

1963 

1152 

2438028.5 

DEC 

30, 

1962 

1094 

2438037.5 

FEB 

27, 

1963 

1153 

2438029.5 

DEC 

31, 

1962 

1095 

2438088.5 

FEB 

28, 

1963 

1154 

2438030.5 

JAN 

1, 

1963 

1096 

2438089.5 

KAR 

1, 

1963 

1155 

2438031.5 

JAN 

2, 

1963 

1097 

2438090.5 

MAR 

2, 

1963  , 

1156 

2438032.5 

JAN 

* 

1963 

1098 

2438091.5 

MAR 

3, 

1963 

1157 

2438033.5 

JAN 

4, 

1963 

1099 

2438092.5 

MAR 

4, 

1963 

1158 

2438034.5 

JAN 

5, 

1963 

1100 

2438093.5 

MAR 

5, 

1963 

1159 

2438035.5 

JAN 

6  , 

1963 

1101 

2438094.5 

MAR 

6  , 

1963 

1160 

2438036.5 

JAN 

7, 

1963 

1102 

*:433095.5 

MAR 

7* 

1963 

1161 

2438037.5 

JAN 

8, 

1963 

1103 

2438096.5 

MAR 

8, 

1963 

1162 

2438038.5 

JAN 

9, 

1963 

1104 

2438097.5 

MAR 

9, 

1963 

1163 

2438039,5 

JAN 

10, 

1963 

1105 

2438098.5 

MAR 

1C, 

1963 

1164 

2438040,5 

JAN 

11, 

1963  , 

1106 

2438099.5 

MAR 

11, 

1963 

1165 

2438041.5 

JAN 

12, 

1963 

1107 

2438100.5 

MAR 

12, 

1963 

1166 

2438042.5  . 

JAN 

13, 

1963 

1108 

2430101.5 

MAR 

13, 

1963 

1167 

2438043.5 

JAN 

14, 

1963 

1109 

2438102.5 

MAR 

14, 

1963 

1168 

2438044.5 

JAN 

15, 

1963 

1110 

2438103.5 

MAR 

15, 

1963 

1169 

2438045.5 

JAN 

16, 

1963 

nil 

2438104.5 

MAR 

16, 

1963 

1170 

2438046.5 

JAN 

17., 

1963 

1112 

2438105.5 

MAR 

17, 

1963 

1171 

2438047.5 

JAN 

18, 

1963 

1113 

2438106.5 

MAR 

18, 

1963 

1172 

2438048.5 

JAN 

19, 

1963 

1114 

2438107.5 

MAR 

19, 

1963 

1173 

2438049.5 

JAN 

20, 

1963 

1115 

2438108.5 

MAR 

20, 

1963 

1174 

2438050.5 

JAN 

21, 

1963 

1116 

2438109.5 

MAR 

21* 

1963 

1175 

2438051.5 

JAN 

22, 

1963 

1117 

2438110.5 

MAR 

22, 

1963 

1176 

2438052.5 

JAN 

23, 

1963 

1118 

2438111.5 

MAR 

23, 

1963 

1177 

2436053.5 

JAN 

24, 

1963 

1119 

2438112.5 

MAR 

24, 

1963 

1X78 

2438054.5 

JAN 

25, 

1963 

1120 

2438111.5 

MAR 

25, 

1963 

1179 

A-  Z  6 


2438114.5 

MAR 

26. 

1963 

1180 

2438173.5 

MAY 

24 » 

1963 

1239 

2438115.5 

MAR 

27. 

1963 

1181 

2438174,5 

MAY 

25, 

1963 

1240 

2438116.5 

MAR 

28. 

1963 

1182 

2438175,5 

MAY 

26  . 

1963 

1241 

2438117,5 

MAR 

29t 

1963 

1103 

2436176,5 

MAY 

27, 

1963 

1242 

2438118.5 

MAR 

30. 

1963 

1184 

24381T7.5 

MAY 

28, 

1963 

1243 

2438119,5 

MAR 

31. 

1963 

1135 

2438176. 5 

MAY 

29, 

1963 

1244 

2438120.5 

APR 

1  * 

1963 

1186 

2438179,5 

MAY 

30, 

1963 

1245 

2438121.5 

APR 

2. 

1963 

il6/ 

2438180.5 

MAY 

31, 

1963 

1246 

2438122.5 

APR 

3* 

1963 

1188 

2436181,5 

JUN 

1* 

1963 

1247 

2438123,5 

APR 

4, 

1963 

1189 

2438182.5 

JUN 

2  * 

1963 

1248 

2438124.5 

APR 

5. 

1963 

1190 

2438183.5 

JUN 

3. 

1963 

1249 

2438125.5 

APR 

6  * 

1963 

1191 

2438184,5 

JUN 

4. 

1963 

1250 

2438126.5 

APR 

7, 

1963 

1192 

2438185,5 

JUN 

5, 

1963 

1251 

2438127,5 

APR 

8* 

1963 

1193 

2438186,5 

JUN 

6  . 

1963 

1252 

2438128,5 

APR 

9. 

1963 

1194 

JUN 

7, 

1963 

12  53 

2438129.5 

APR 

lo¬ 

1195 

2438188,5 

JUN 

8. 

1963 

1254 

2438130.5 

APR 

ll. 

1963 

1196 

2438189.5 

JUN 

9, 

1963 

1255 

2438131.5 

APR 

12. 

1963 

1197 

2438190.5 

JUN 

10, 

1963 

1256 

2438132.5 

APR 

13. 

1963 

1198 

2438191.5 

JUN 

11  . 

1963 

1257 

2438133.; 

APR 

14. 

1963 

1199 

2438192.5 

JUN 

12. 

1963 

1258 

2438134-5 

APR 

15. 

1963 

1200 

2438193.5 

JUN 

13, 

1963 

1259 

2438135»5 

APR 

16. 

1963 

1201 

2438194,5 

JUN 

14, 

1963 

1260 

2438136.5 

APR 

1  “T  . 

J.  4  9 

r>  <r,  -5 

4L  W 

1  o 

A.  V  ^ 

'y  f.  n  t'i  r\  r  r 

JUN . 

13. 

1963 

1261 

2438137.5 

APR 

18. 

1963 

1203 

2438196. 5 

JUN 

16  . 

1963 

1262 

2438138.5 

APR 

19. 

1963 

1204 

24,^8)97.  S 

jUN 

17 . 

196^ 

2438139.3 

APR 

20. 

1963 

1205 

243611*8.5 

JUN 

18* 

1963 

1264 

2438140.5 

APR 

21* 

1963 

1206 

2438199.5' 

JUN 

19* 

1963 

1265 

2438141.5 

APR 

22. 

1963 

1207 

2438200.5 

JUN 

20. 

1963 

1266 

2438142.5 

APR 

23. 

1963 

1208 

2438201,5 

JUN 

21  * 

1963 

1267 

2438143.5 

APR 

24. 

1963 

1209 

2438202.5 

JUN 

22* 

1963 

1268 

2438144.5 

APR 

25. 

1963 

1210 

2438203.5 

JUN 

23* 

1963 

1269 

2438145.5 

APR 

26* 

1963 

1211 

2438204.5 

JUN 

24* 

1963 

1270 

2438146.5 

APR 

27* 

1963 

1212 

2438205.5 

JUN 

25* 

1963 

1271 

2438147.5 

APR 

26. 

1963 

1213 

2438206.5 

JUN 

26  * 

1963 

1272 

2438148.5 

APR 

29. 

1963 

1214 

.2438207,5 

JUN 

27* 

1963 

1273 

2438149.5 

APR 

30* 

1963 

1215 

2436208.5 

JUN 

28. 

1963 

1274 

2438150.5 

MAY 

1. 

1963 

1216 

2438209,5 

JUN 

29* 

1963 

1275 

2438151.5 

MAY 

2* 

1963 

1217 

•  2438210.5 

JUN 

30* 

1963 

1276 

2438152.5 

MAY 

3. 

1963 

1218 

2438211.5 

JUL 

1  * 

1963 

1277 

2438153.5 

MAY 

4. 

1963 

1219 

2438212.5 

JUL 

2* 

1963 

1278 

2438154,5 

MAY 

5, 

1963 

1220 

2438213,5 

JUL 

3  * 

1963 

1279 

2438155.5 

MAY 

6« 

1963 

1221 

2438214.5 

JUL 

4* 

1963 

1280 

2438156.5 

MAY 

7. 

1963 

1222 

2438215.5 

JUL 

5* 

1963 

1281 

2438157,5 

MAY 

8* 

1963 

1223 

2438216.5 

JUL 

6  * 

1963 

1282 

2436156,5 

MAY 

9. 

1963 

1224 

2438217.5 

JUL 

7* 

1963 

1283 

2438159,5 

MAY 

10. 

1963 

1225 

2438218.5 

JUL 

8* 

1963 

1284 

2438160.5 

MAY 

11  * 

1963 

1226 

2438219.5 

JUL 

9* 

1963 

1285 

2438161.5 

MAY 

12. 

1963 

1227 

2438220.5 

JUL 

10* 

1963 

1286 

2438162,5 

MAY 

13. 

1963 

1228 

2438221.5 

JUL 

11  * 

1963 

128? 

2438163.5 

MAY 

14, 

1963 

1229 

2438222.5 

JUL 

12* 

1963 

1288 

2438164.5 

MAY 

15, 

1963 

1230 

2438223,5 

JUL 

13* 

1963 

1289 

2438165.5 

MAY 

16  * 

1963 

1231 

2438224,5 

JUL 

14* 

1963 

1290 

2438166.5 

MAY 

17, 

1963 

1232 

2438225.5 

JUL 

15* 

1963 

1291 

2438167,5 

MAY 

18. 

1963 

1233 

2438226,5 

JUL 

16* 

1963 

1292 

2438168.5 

MAY 

19, 

1963 

1234 

2438227,5 

JUL 

17* 

1963 

1293 

2438169.5 

MAY 

20. 

1963 

1235 

2438228.5 

JUL 

16* 

1963 

1294 

2438170,5 

MAY 

21. 

1963 

1236 

2438229.5 

JUL 

19* 

1963 

1295 

2438171.5 

MAY 

22* 

1963 

1237 

2438230,5 

JUL 

20* 

1963 

1296 

2438172,5 

MAY 

23. 

1963 

1238 

2438231.5 

JUL 

21* 

1963 

1297 

A-Z7 


« _  ■ 


2438232.5 

J'JL 

22. 

1963 

1298 

2438291.5 

SEP 

19* 

1963 

1357 

2438233.3 

JOL 

23. 

1963 

1299 

2438292.5 

SEP 

20* 

1963 

1358 

2438234.5 

JUL 

24. 

1963 

1300 

2438293.5 

SEP 

21* 

1963 

1359 

2438235.5 

JUL 

25. 

1963 

1301 

2438294.5 

SEP 

22* 

1963 

1360 

2438236.5 

JUL 

26. 

1963 

1302 

24382S5.5 

SEP 

23* 

1963 

1361 

2438237.5 

JUL 

27. 

1963 

1303 

2428296.5 

SEP 

24* 

1963 

1362 

2438238.5 

JUL 

28. 

1963 

1304 

2438297.5 

SEP 

25* 

1963 

1363 

2438239.5 

JUL 

29. 

1963 

1305 

2438298.5 

SEP 

26* 

1963 

1364 

2438240.5 

JUL 

30. 

1963 

1306 

2438299.5 

SEP 

27. 

1963 

1365 

2438241.5 

JUL 

31. 

1963 

1307 

2438300.5 

SEP 

28* 

1963 

1366 

2438242.5 

AUG 

1. 

1963 

1308 

2438301.5 

SEP 

29* 

1963 

1367 

2438243.5 

AUG 

2. 

1963 

1309 

2438302.5 

SEP 

30* 

1963 

1368 

2438244.5 

AUG 

3. 

1963 

1310 

2438303.5 

OCT 

1 « 

1963 

1369 

2438245.5 

AUG 

4. 

1963 

1311 

2438304.5 

OCT 

2* 

1963 

1370 

2438246.5 

AUG 

5. 

1963 

1312 

2436305.5 

OCT 

3* 

1963 

1371 

2438247.5 

AUG 

6. 

1963 

1313 

2438306.5 

OCT 

4* 

1963 

1372 

2438248.5 

AUG 

7. 

1963 

1314 

2438307,5 

OCT 

5* 

1963 

1373 

2438249.5 

AUG 

8. 

1963 

1315 

2436308.5 

OCT 

6  * 

1963 

1374 

2438250.5 

AUG 

9. 

1963 

1316 

2438309.5 

OCT 

7. 

1963 

1375 

2438251.5 

AUG 

10. 

1963 

1317 

2433310.5 

OCT 

8* 

1963 

1376 

2438252.5 

AUG 

11. 

1963 

1318 

2438311.5 

^  1 

9  9 

1963 

1377 

2438253.5 

AUG 

12. 

1963 

1319 

2438312^5 

OCT 

10  > 

1963 

1378 

243S2JH.5 

AUG 

13.. 

1963 

1320 

2438313.5 

OCT 

11  * 

1963 

1379 

2438255.5 

AUG 

14. 

1963 

1321 

2438314.5 

OCT 

12* 

1963 

1380 

">  A.  •»  n  ^  t 

*  1  1  /- 
rvw  w 

1  i: 

A  V  y 

1963 

13^^ 

OCT 

13  * 

1963 

1  1 

2438257.5 

AUG 

16. 

1963 

1323 

2438316.5 

OCT 

14* 

1963 

1382 

2438258.5 

AUG 

17. 

1963 

1324 

2438317.5 

OCT 

15* 

1963 

1383 

2438259.5 

AUG 

18. 

1963 

1325 

2438318.5 

OCT 

16* 

1963 

1384 

2438260.5 

AUG 

19. 

1963 

1326 

2438319.5 

OCT 

17.* 

1963 

1385 

2438261.5 

AUG 

20. 

1963 

1327 

2438320.5 

OCT 

18* 

1963 

1306 

243826215 

.  AUG 

21. 

1963 

1328 

2438321.5 

OCT 

19* 

1963 

1387 

2438263.5 

AUG 

22. 

1963 

1329 

24383'22.5 

OCT 

20* 

1963 

1388 

2438264.5 

AUG 

23. 

1963 

1330 

2438323.5 

OCT 

21* 

1963  . 

1309 

2438265.5 

AUG 

24. 

1963 

1331 

2438324,5 

OCT 

22, 

1963 

.  1390 

2438266.5 

AUG 

25. 

1963 

1332 

2438325.5 

OCT 

23* 

1963 

1391 

2438267.5 

AUG 

26. 

1963 

1333 

2438326.5 

OCT 

24, 

1963 

1392 

2438268.5 

AUG 

27. 

1963 

1334 

2438327,5 

OCT 

25, 

1963 

1393 

2438269.5 

AUG 

28, 

1963 

1335 

2438328.5 

OCT 

26. 

1963 

1394 

2436270.5 

AUG 

29. 

1963 

1336 

2438329.5 

OCT 

27, 

196  3 

1395 

2438271.5 

AUG 

30. 

1963 

1337 

2438330.5 

OCT 

28, 

1963 

1396 

2438272.5 

AUG 

31. 

1963 

1338 

2438331.5 

OCT 

29, 

1963 

1397 

2438273.5 

SEP 

1. 

1963 

1339 

2438332.5 

OCT 

30. 

1963 

1398 

2438274.5 

SEP 

2. 

1963 

1340 

2438333,5 

OCT 

31. 

1963 

1399 

2433275.5 

SEP 

3. 

1963 

1341 

2438334,5 

NOV 

1. 

1963 

1400 

2436276.5 

SFP 

Ut 

1  96? 

1 242 

2*^383  3  5. 5 

NOV 

2, 

1563 

1401 

2438277.5 

SEP 

5. 

1963 

1343 

2433336.5 

NOV 

3. 

1963  . 

1402 

2438278.5 

SEP 

6  . 

1963 

1344 

2438337,5 

NOV 

4. 

1963 

1403 

2438279.5 

SEP 

7, 

1963 

1345 

2438338.5 

NOV 

5* 

1963 

1404 

2438280.5 

SEP 

8. 

1963 

1346 

2438339,5 

NOV 

6  * 

1963 

1405 

2438281.5 

SEP 

9. 

1963 

1347 

2438340.5 

NOV 

7. 

1963 

1406 

2438282.5 

SEP 

10. 

1963 

1348 

2438341.5 

NOV 

8* 

1963 

1407 

2438283.5 

SEP 

11. 

1963 

1349 

2438342,5 

NOV 

9. 

1963 

1408 

2438284.5 

SEP 

12. 

1963 

1350 

2438343,5 

NOV 

10* 

1963 

1409 

2438285.5 

SEP 

13. 

1963 

1351 

2438344,5 

NOV 

11* 

1963 

1410 

2438286.5 

SEP 

14. 

1963 

1352 

2438345,5 

NOV 

12* 

1963 

1411 

2438287.5 

SEP 

15. 

1963 

1353 

2438346,5 

NOV 

13* 

1963 

1412 

2438288.5 

SEP 

16. 

1963 

1354 

2438347,5 

NOV 

14* 

1963 

1413 

2438289.5 

SEP 

17. 

1963 

1355 

2438348.5 

NOV 

15* 

1963 

1414 

2438290.5 

SEP 

IS, 

1963 

1356 

2438349,5 

NOV 

16* 

1963 

1415 

2438350.5 

NOV 

17. 

1963  . 

1416 

2438409.5 

JAN 

If 

1964 

1475 

243e331.3 

NOV 

18. 

1963 

1417 

2438410*5 

JAN 

»  .•* 

i964 

1476 

2438352*3 

NOV 

19. 

1963 

1416 

2438411*5 

JAN 

17, 

1964 

1477 

2438353*5 

NOV 

20. 

1963 

1419 

2438412*5 

JAN 

18« 

1964 

1478 

2438354*5 

NOV 

21. 

1963 

1420 

2438413*5 

JAN 

19. 

1964 

1479 

2438355*5 

NOV 

22. 

1963 

1421 

2438414*5 

JAN 

20. 

1964 

)480 

2436356*5 

NOV 

23. 

1963 

1422 

2438415*5 

JAN 

21. 

1964 

1451 

2438357*5 

NOV 

24. 

1963 

1423 

2438416*5 

JAN 

22. 

1964 

1482 

2438356*5 

NOV 

25. 

1963 

1424 

2438417*5 

JAN 

23. 

1964 

1483 

2438359*5 

NOV 

26 . 

1963 

1425 

2438416*5 

JAN 

24. 

1964 

1484 

2438360*5 

NOV 

27  i 

1965 

t  A  O  ^ 

A 

2436419.5 

JAN 

25* 

1964 

1485 

2438361*5 

NOV 

28. 

1963 

1427 

2438420*5 

JAN 

26. 

1964 

1486 

2438362*5 

NOV 

29. 

1963 

1428 

2438421.5 

JAN 

27. 

1964 

1487 

2438363*5 

NOV 

30 1 

1963 

1429 

2433422*5 

JAM 

28. 

1964 

1488 

2438364.5 

DEC 

1. 

1963 

1*430 

2438423*5 

JAN 

29. 

1964 

1489 

2438365*5 

DEC 

2. 

1963 

1431 

2438424*5 

JAN 

30. 

1964 

1490 

2438366*5 

DEC 

3. 

1963 

1432 

2438425.5 

JAN 

31  * 

1964 

1491 

2438367,5 

DEC 

4. 

1963 

14'»3 

2438426*5 

FEB 

1* 

1964 

1492 

2438368*5 

dec: 

5. 

1963 

1  '■>  V 

2438427.5 

FEB 

2. 

1964 

1493 

2438369*5 

dec; 

6 « 

1963 

1*35 

2438428*5 

FEB 

3* 

1964 

1494 

2438370*5 

2436371*5 

dec 

DEC 

7. 

.8. 

.1963 

^963 

1426 

2438429.5 

243e43'0.5 

FEB  4, 
FEB’^; 

1964 

1964 

1495 

1496 

2438372.5 

DEC 

9. 

i.965 

1438 

2438431*5 

FEB 

6 1 

1964 

1497 

2438373*5 

DEC 

10. 

1.963  " 

143?r 

‘  •  2438432*5 

FEB 

7. 

1964 

1498 

2438374.5 

DEC 

11. 

1963 

1440 

243843.3.5 

FEB 

8. 

1964 

1499 

24jb^73*5 

DEC 

1 2  > 

1963 

inm 

^438434.5 

FEB 

9. 

1964 

1500 

2438376*5 

DEC 

13. 

1963 

1442 

243843.5.5 

FEB 

10. 

1964 

1501 

2433377,5 

DEC 

14. 

1963 

1443 

2438436.5 

FE6 

11. 

1964 

1502 

2438378*5 

DEC 

15. 

1963 

1444 

2438437,5 

FEB 

12. 

1964 

1503 

2438379*5 

DEC 

16. 

1953 

1445 

2438438.5 

FE0 

13. 

1964 

1504 

2438380*5 

DEC 

17. 

1963 

1446 

2438439.5 

FEB 

14. 

1964 

1505 

2436381*5 

DEC 

18. 

1963 

1447 

2438440*5 

FEB 

15. 

1964 

1506 

2438362*5 

DEC' 

19* 

1963 

1448 

2438441*5 

FEB 

16? 

1964 

1507 

2436383*5  ' 

.DEC 

20* 

1963 

1449 

2438442*5 

FEB 

17. 

1964 

1508 

2436384*5 

DEC 

21* 

1963 

1450 

2438443*5 

FEB 

18. 

1964 

1509 

2438385*5 

DEC 

22* 

1963 

1451 

2436444*5 

FEB 

19. 

1964 

1510 

2438386.5 

DEC 

23* 

1963 

1452 

2438445.5 

FEB 

20. 

1964 

1511 

2438387,5 

DEC 

24* 

1963 

1453 

2438446*5 

FEB 

21. 

1964 

1512 

2436386*5 

DEC 

25* 

1963 

1454 

2438447,5 

FEB 

22. 

1964 

1513 

2438389:5 

DEC 

26  * 

1963 

1455 

2438448.5  , 

FEB 

23. 

1964 

1514 

2438390.5 

DEC 

27. 

1963 

1456 

2438449.5 

FEB 

24, 

1964 

1515 

2438391.5 

DEC 

26* 

1963 

1457 

2438450,5 

FEB 

25« 

1964 

1516 

2438392.5 

DEC 

29* 

1963 

1458 

2438*51.5 

FEB 

26. 

1964 

1517 

2438393.5 

DEC 

30* 

1963 

1459 

2438452-5 

FEB 

27* 

1964 

1518 

2438394*5 

DEC 

31* 

1963 

1460 

2438453.5 

FEB 

28. 

1964 

1519 

2438395.5 

JAN 

1. 

1964 

1461 

2438454,5 

FEB 

29. 

1964 

1520 

2438396,5 

JAN 

2* 

1964 

1462 

2438455,5 

MAR 

1. 

1964 

1521 

2438397.5 

JAN 

3. 

1964 

1463 

2438456.5 

MAR 

2. 

1964 

1522 

2436398.5 

JAN 

4. 

1964 

1464 

2438457,5 

MAR 

3. 

1964 

1523 

2438399.5 

JAN 

5. 

1964 

1465 

2438458.5 

MAR 

4  . 

1964 

1524 

2438400.5 

JAN 

6  * 

1964 

1466 

2438459,5 

MAR 

5. 

1964 

1525 

2438401.5 

JAN 

7. 

1964 

1467 

2438460.5 

MAR 

6 . 

1964 

1526 

2436402.5 

JAN 

6* 

1964 

1468 

2438461.5 

MAR 

7. 

1964 

1527 

2438403.5 

JAN 

9* 

1964 

1469 

2438462.5 

MAR 

6. 

1964 

1528 

2438404.5 

JAN 

10* 

1964 

1470 

2438463.5 

MAR 

9. 

1964 

1529 

2436405.5 

JAN 

11* 

1964 

1471 

2438464.5 

MAR 

10. 

1964 

1530 

2436406.5 

JAN 

12* 

1964 

1472 

2438465.5 

MAR 

11. 

1964 

1531 

2438407.5 

JAN 

13. 

1964 

1473 

2438466.5 

MAR 

12. 

1964 

1332 

2438408.3 

JAN 

14* 

1964 

1474 

2438467,5 

MAR 

13. 

1964 

1533 

9i 


i 


3 

i 

4 

i 
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< 

I 
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.3 
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2438468.3 

MAR 

14. 

1964 

1334 

2438327.5 

MAY 

12* 

1964 

1593 

2436469.3 

MAR 

13. 

1964 

1535 

2438328.3 

MAY 

13* 

1964 

1394 

2438470.3 

MAR 

16* 

1964 

1336 

2438329.5 

MAY 

14* 

1964 

1595 

2438471.3 

MAR 

17. 

1964 

1537 

2438330.3 

MAY 

13* 

1964 

1596 

2438472.5 

MAR 

18. 

1964 

1338 

2438331.3 

MAY 

16* 

1964 

1597 

2438473.3 

MAR 

19. 

1964 

1339 

2438332.3 

MAY 

17, 

1964 

1598 

2438474.3 

MAR 

20* 

1964 

1540 

2438333.3 

MAY 

16* 

1964 

1599 

2438473.3 

MAR 

21. 

1964 

1541 

2438334.3 

MAY 

19* 

1964 

1600 

2438476.3 

MAR 

22* 

1964 

1542 

2438333.3 

MAY 

20* 

1964 

1601 

2438477.5 

MAR 

23. 

1964 

1543 

2438336.3 

MAY 

21* 

1964 

1602 

2438476.3 

MAR 

24* 

1964 

1344 

2438537*3 

MAY 

22* 

1964 

1603 

2438479.3 

MAR 

23* 

1964 

1545 

243S3  38 . 3 

MAY 

23* 

1964 

1604 

2438480.3 

MAR 

26  » 

1964 

1546 

2438339.3 

MAY 

24* 

1964 

1605 

2438481.3 

MAR 

27, 

1964 

1547 

2438340*3 

MAY 

23  * 

1964 

1606 

2438482.5 

MAR 

28* 

1964 

1548 

2438341.3 

MAY 

26* 

1964 

1607 

2438^  3, 3 

MAR 

29* 

1964 

1549 

2438342.3 

MAY 

27* 

1964 

1608 

2438484.3 

MAR 

30* 

1964 

1530 

2438343.3 

MAY 

28* 

3.964 

1609 

2438483.3 

MAR 

31* 

1964 

1551 

2438544*  3 

MAY 

29* 

1964 

1610 

2438486.3 

APR 

1* 

1964 

1552 

2438343.3 

MAY 

30* 

1964 

1611 

2438487.5 

APR 

2* 

1964 

1553 

2438346.3 

MAY 

31* 

1964 

1612 

2438468.3 

APR 

3* 

1964 

1554 

2438347.3 

JUN 

I* 

1964 

1613 

2438489.3 

APR 

4f 

1964 

1555 

2438548.3 

JUN 

2, 

1964 

1614 

2438490.3 

APR 

3* 

1964 

1556 

2438549.3 

JUN 

3* 

1964 

1615 

2438491.3 

APR 

6* 

1964 

1537 

2438350.5 

.ilJ.M 

4> 

1  464 

1616 

APR 

7  * 

1964 

1338 

2438331.3 

JUN 

3* 

1964 

1617 

2438493.3 

APR 

8* 

1964 

1559 

2438332.3 

JUN 

6  f 

1964 

1618 

2438494.5 

APR 

9* 

1964 

1360 

2438333.3 

JUN 

7* 

1964 

1619 

2438493.3 

APR 

10* 

1964 

1561 

2438534.3 

JUN 

8* 

1964 

1620 

2438496.3 

APR 

11* 

1964 

1562 

2438333.3 

JUN 

9* 

1964 

1621 

2438497.5 

APR 

12* 

1964 

1363 

2438336.3 

JUN 

10* 

1964 

1622 

2438498.3 

APR 

13* 

1964 

1564 

2438557.5 

JUN 

11* 

1964 

1623 

2438499.5 

APR 

14* 

1964 

1565 

2438538.3 

’  JUN 

12* 

1964 

1624 

2436500.5 

APR 

13* 

1964 

1366 

2438559.3 

JUN 

13* 

1964 

1625 

2438301.5 

APR 

16* 

1964 

1567 

2438360*3 

JUN 

14* 

1964 

1626 

2438502.3 

APR 

17* 

1964 

1368 

2438361.3 

JUN 

13* 

1964 

1627 

2438303.5 

APR 

16* 

1964 

1369 

2438362.3 

JUN 

16* 

1964 

1628 

2436304.5 

APR 

19* 

1964 

1570 

2438563.3 

JUN 

17, 

1964 

1629 

2438303.5 

APR 

20* 

1964 

1571 

2438364.3 

JUN 

18* 

1964 

1630 

243S306.3 

APR 

21* 

1964 

1572 

2438363.3 

JUN 

19* 

1964 

1631 

2438507.5 

APR 

22* 

1964 

1573 

2438566.3 

JUN 

20* 

1964 

1632 

2438503.3 

APR 

23* 

1964 

1574 

2438367.3 

JUN 

21* 

1964 

1633 

2438509.5 

APR 

24* 

1964 

1575 

2438368.3 

JUN 

22, 

1964 

1634 

2^38310.5 

APR 

25, 

1964 

1576 

2438369.3 

JUN 

23* 

1*964 

1635 

2438311.3 

APR 

26  * 

1964 

1577 

2438370.3 

JUN 

24* 

1964 

1636 

2438312.3 

APR 

27* 

1964 

1578 

2438571.5 

JUN 

23* 

1964 

1637 

2438313.3 

APR 

28, • 

1964 

1579 

2438572.5 

JUN 

26  * 

1964 

1638 

2438314.3 

APR 

29f 

1964 

*  1580 

2438573.3 

.  JUN 

27* 

1964 

1639 

2438313.3 

APR 

30* 

1964 

1581 

2438574.3 

JUN 

28* 

1964 

1640 

2438316.3 

MAY 

1* 

1964 

1582 

2438575.5 

JUN 

29* 

1964 

1641 

2438317.3 

MAY 

2* 

1964 

1583 

2438576.5 

JUN 

30* 

1964 

1642 

2438318.3 

MAY 

3* 

1964 

1584 

2438577.5 

JUL 

1* 

1964 

1643 

2438319.3 

MAY 

4* 

1964 

1585 

2438578.5 

JUL 

2* 

1964 

1644 

2438520.3 

MAY 

3* 

1964 

1586 

2438579.5 

JUL 

3  9 

1964 

1645 

2438321.3 

MAY 

6  * 

1964 

1587 

2438380.3 

JUL 

4* 

1964 

1646 

2438322.3 

MAY 

7, 

1964  . 

1588 

2438381.3 

JUL 

3* 

1964 

1647 

2438323.3 

MAY 

8* 

1964 

1589 

2438382.3 

JUL 

6  9 

1964 

1648 

2438524.5 

MAY 

9* 

1964 

1590 

2438383.3 

JUL 

7* 

1964 

1649 

2438323.5 

MAY 

10? 

1964 

1591 

2438384.3 

JUL 

8* 

1964 

1650 

2438526.5 

MAY 

11* 

1964 

1592 

2438585.5 

JUL 

9* 

1964 

1651 

f  T 

t 

i 
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2438586.5 

JUL 

10. 

1964 

1652 

2438645.5 

SEP 

7, 

1964 

1711  g 

2438567.5 

JUL 

ll. 

1964 

1653 

2438646.5 

SEP 

8. 

1964 

1712  a 

2438588.5 

JUL 

12. 

1964 

1654 

2438647,5 

SEP 

9, 

1964 

1713  I 

2438589.5 

JUL 

13. 

1964 

1655 

2438648.5 

SEP 

10, 

1964 

1714  H 

2438590.5 

JUL 

14. 

1964 

1656 

2438649.5 

SEP 

11. 

1964 

1715  5 

2435591,5 

JUL 

15. 

1964 

1657 

2438650.5 

SEP 

12. 

1964 

1716  I 

2438592.5 

JUL 

16 . 

1964 

1658 

2438651.5 

SEP 

13. 

1964 

1717  1 

2438593.5 

JUL 

17. 

1964 

1659 

2436652.5 

SEP 

14. 

1964 

1718  1 

2438594.5 

JUL 

18. 

1964 

1660 

2438653.5 

SEP 

15. 

1964 

1719  1 

2438595.5 

JUL 

19. 

1964 

1661 

2438654,5 

SEP 

16. 

1964 

1720  1 

2438596.5 

JUL 

20. 

1964 

1662 

2438655.5 

SEP 

17. 

1964 

1721  I 

2438597.5 

JUL 

21. 

1964 

1663 

2438656.5 

SEP 

18, 

1964 

1722  1 

2438598.5 

JUL 

22. 

1964 

1664 

2438657,5 

SEP 

19. 

1964 

1723  1 

2438599.5 

JUL 

23. 

1964 

1665 

2438658.5 

SEP 

20. 

1964 

1724  [ 

2438600.5 

JUL 

24. 

1964 

1666 

2438659,5 

SEP 

21 . 

1964 

1725  5 

2438601.5 

JUL 

25. 

1964 

1667 

2436660.5 

SEP 

22. 

1964 

1726  ■ 

2438602.5 

JUL 

26. 

1964 

1668 

2438661.5 

SEP 

23. 

1964 

1727  . 

2438603.5 

JUL 

27. 

1964 

1669 

2438662.5 

SEP 

24. 

1964 

1728  : 

2438604.5 

JUL 

28. 

1964 

1670 

2438663.5 

SEP 

25. 

1964 

1729  i 

2438605.5 

JUL 

29. 

1964 

1671 

2438664,5 

SEP 

26. 

1964 

1730  1 

2438606.5 

JUL 

30. 

1964 

1672 

2438665.5 

r-  cr% 
our 

..  f  , 

1964 

1731  i 

2438607.5 

JUL 

31 . 

1964  . 

1673 

2438666.5 

SEP 

26. 

196*.  ' 

1752  ‘ 

2438608. 5 

AUG 

1 . 

1964 

1674 

2433667,5 

SEP 

29, 

1964 

1733  ' 

2438609,5 

AUG 

2. 

1964 

1675 

2438668.5 

SEP 

30. 

1904 

1/34  ’ 

Ai  ir. 

3 

1<3A4 

16  76 

2433669.5 

OCT 

1. 

1964 

1735  ’ 

2438611.5 

AUG 

4. 

1964 

1677 

2438670.5 

OCT 

2. 

1964 

A  7  30 

2438612.5 

AUG 

5. 

1964 

1678 

2438671,5 

OCT 

3, 

1964 

1737,; 

2438613.5 

AUG 

6 . 

1964 

1679 

2438672,5 

OCT 

4. 

1964 

1738  i 

2438614.5 

AUG 

7. 

1964 

1680 

2438673.5 

OCT 

5. 

1964 

1739 

2438615.5 

AUG 

8. 

1964 

1681 

2433674, 5 

OCT 

6  . 

1964 

1740  ■ 

2438616,5 

AUG 

9. 

1964 

1632 

24386,75.5 

OCT 

7. 

1964 

1741  , 

2438617.5 

AUG 

10. 

1964 

1683 

2438676.5 

OCT. 

8. 

1964 

1742  ; 

2433618.5 

AUG 

11 . 

1964 

1684 

2438677,5 

OCT 

9. 

1964 

1743  J 

2438619.5 

AUG 

12. 

1964 

1685 

2438678,5 

OCT 

10. 

1964 

1744  1 

2438620.5 

AUG 

13. 

1964 

1686 

2438679.5 

OCT 

11. 

1964 

1745  ? 

2433621.5 

AUG 

14, 

1964 

1687 

2438660,5 

OCT 

12. 

1964 

1746  ? 

2438622,5 

AUG 

15. 

1964 

1688 

2438681,5 

OCT 

13. 

1964 

1747  i 

2438623.5 

,  AUG 

16 . 

1964 

1689 

2438682.5 

OCT 

14. 

1964 

1748  « 

1749  1 

2438624,5 

AUG 

17. 

1964 

1690 

2438683,5 

OCT 

15. 

1964 

2438625.5 

AUG 

18. 

1964 

1691 

2438684,5 

OCT 

16. 

1964 

1750  e 

2438626.5 

AUG 

19. 

1964 

1692 

2438685.5 

OCT 

17. 

1964 

1751  f 

.2438627,5 

AUG 

20. 

1964 

1693 

2438686,5 

OCT 

18. 

1964 

1752  ^5 

2438628.5 

AUG 

21 . 

1964 

1694 

2438687,5 

OCT 

19. 

1964 

1753 

2438629.5 

AUG 

22. 

1964 

1695 

2436668. 5 

OCT 

20. 

1964 

1754  1 

2438630,5 

AUG 

23. 

1964 

1696 

2438689.5 

OCT 

21. 

1964 

1755  ! 

2438631.5 

AUG 

24. 

1964 

1697 

2438690,5 

OCT 

22. 

1964 

1756  ; 

•2438632.5 

AUG 

25. 

1964 

1698 

2438691,5 

OCT 

23. 

1964 

1757  ! 

2438633.5 

AUG 

26. 

1964 

1699 

2438692.5 

OCT 

24. 

1964 

1758  i 

2438634.5' 

AUG 

27, 

1964 

1700 

2438693,5 

OCT 

25. 

1964 

1759  j 

2438635.5 

AUG 

28. 

1964 

1701 

2438694,5 

OCT 

26. 

1964 

1760  1 

2438636.5 

AUG 

29. 

1964 

1702 

2438695,5 

OCT 

27. 

1964 

1761 

2438637.5 

AUG 

30. 

1964 

1703. 

2438696.5 

OCT 

28. 

1964 

1762 

2438638.5 

AUG 

31. 

1964 

1704 

2436697.5 

OCT 

29. 

1964 

.  1763 

2438639.5 

SEP 

1. 

1964 

1705 

2438698,5 

OCT 

30. 

1964 

1764 

2438640.5 

SEP 

2. 

1964 

1706 

2438699.5 

OCT 

31. 

1964 

1765 

2438641.5 

SEP 

3. 

1964 

1707 

2438700.5 

NOV 

1. 

1964 

1766 

2438642,5 

SEP 

4. 

1964 

1708 

2438701.5 

NOV 

2. 

1964 

1767 

2438643.5 

SEP 

5. 

1964 

1709 

2438702,5 

NOV 

3. 

1964 

1768 

2438644.5 

SEP 

6 . 

1964 

1710 

2438703.5 

NOV 

4. 

1964 

1769 

2438704,5 

NOV 

5, 

1964 

1770 

2438705.5 

NOV 

6  * 

1964 

1771 

2438706.5 

NOV 

7. 

1964 

1772 

2438707,5 

NOV 

8» 

1964 

1773 

2438708,5 

NOV 

9, 

1964 

1774 

2438709,5 

NOV 

10» 

1964 

1775 

2438710,5 

NOV 

11* 

1964 

1776 

2438711,5 

NOV 

12* 

1964 

1777 

2438712,5 

NOV 

13* 

1964 

1778 

2438713*5 

NOV 

14* 

1964 

1779 

2438714,5 

NOV 

15* 

1964 

1780 

2438715.5 

NOV 

16* 

1964 

1781 

2438716.5 

NOV 

17, 

1964 

1782 

2438717,5 

NOV 

13* 

1964 

1783 

2438718,5 

NOV 

19, 

1964 

1784 

2438719,5 

NOV 

20, 

1964 

1785 

Z438720.5 

NOV 

21, 

1  964 

1786 

2438721.5 

NOV 

22* 

1964 

1787 

2438722,5 

NOV 

23* 

1964 

1788 

2438723.5 

NOV 

24* 

1964 

1789 

2436724.5 

NOV 

25, 

1964 

1790 

2438725.5 

NOV 

26* 

1964 

1791 

2438726,5 

NOV 

27, 

1964 

1792 

2438727.5 

NO  V 

28, 

1964 

1793 

2438728.5 

NOV 

29, 

1964 

1794 

2438729.5 

NOV 

30, 

1964 

1795 

2433730.5 

DEC 

1, 

1964 

1796 

2433731.5 

DEC 

2, 

1964 

1797 

2438732.5 

DEC 

3, 

1964 

1798 

2438733.5 

DEC 

4, 

1964 

1799 

2438734.5 

DEC 

5, 

1964 

1800 

2438735.5 

DEC 

6  , 

1964 

1601 

2438736.5  . 

DEC 

7, 

1964 

1802 

2438737.5 

DEC 

8, 

.1964 

1803 

*2438738.5 

DEC 

9, 

1964 

1804 

2438739.5 

DEC 

10* 

1964 

1805 

2438740.5 

DEC 

11, 

1964 

1806 

2438741.5 

DEC 

12 1 

1964 

1807 

2438742.5 

■  DEC 

13, 

1964 

1806 

2438743.5 

DEC 

14, 

1964 

1809 

2438744.5 

DEC 

15. 

1964 

1810 

2438745.5 

DEC 

16, 

1964 

1611 

2438746.5 

DEC 

17* 

1964 

1812 

2438747.5 

DEC 

18* 

1964 

1813 

2438748.5 

DEC 

19* 

1964 

1814 

2438749.5 

DEC 

20* 

1964 

1815 

2438750.5 

DEC 

21, 

1964 

1816 

2436751.5 

DEC 

22, 

1964 

1817 

2438752.5 

DEC 

23, 

1964 

1818 

2438753,5 

DEC 

24, 

1964 

1819 

2438754,5 

DEC 

25, 

1964 

1820 

2438755.5 

DEC 

26, 

1964 

1821 

2438756.5 

DEC 

27, 

1964 

1322 

2438757,5 

DEC 

28, 

1964 

1823 

2438758.5 

DEC 

29, 

1964 

1824 

2438759.5 

DEC 

30* 

1964 

1825 

2438760.5 

DEC 

31* 

1964 

1825 
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LISTING  OF  THE  N-BODY  PROGRAM 


N  BODY  rKAJtCTORY  SHERYhN 

EOU I  VALENCE  {WM(  1  !  .  X  I M  )  .  (  WH  (  2  )  .  Y  I  f-i )  .  (  WM  (  3  )  .  Z I M  )  .  (  WM  (  4  )  .  X I  DH )  . 

1  (  Wi'i  I  fc )  » 2 1  DM  )  *  (  wr-i  (  5  )  •  Y  I  DiMj  s  ( ^'iL  ( 1  )  t  X I L )  «  {  »L  i  2  )  -«  Y 1 L  i  •  {  WL  (  3  )  •  2 1 L  }  > 

2  (  WL(  4)  .XIDL)  .  (WLtS)  .YIDL  )  .  ( .VL(6  )  »210L) 

DAC  PX ( 9.67 ) .PY ( 9.67 ) .P2(9 .67 ) . TL(67 ) .RKM{4,6 ) .RKLf  4.6 ) .N6(9  )  . 

1  WT  (9  )  .RaD(  9  )  .X(  9  )  -.Y  (9  I  .2(9  )  .DIS  (  9)  .01  ST  (  9)  .PM(6  )  .PL(  6)  .PPH(  6  )  . 

2  PPL(6!  .Oi-i(6)  .0L(61  .WM(6)  .WL(6)  .x.Ai9)  .YY(9)  .22(9)  .TI  (6)  .CL(6) 
COMriON  NLWORo .2ER.FMX.FLX.FriY  .FLY.FiM2.FL2.AM.AL.BM.6L.CM.CL 
COi'iriOi'!  fiLKO  .i'iTARu.i.SUu.l4.('.N.i.NN.T  .TO.TMAX.  D  TnAX  .MAFDT  .iwT^.WTV  •  MGH 

1  XTARC. YTARu.2TARG.SCEN.VCEN.SMAX.G;iMX.£rtAX.RADl.RA02.RADE.WTA. 

2  Ndc-.  .N3T  .I'iaS.RADORG.SAH.SbM  .SCM.  SAL  .  SoL .  SCL  .  X I M  .X  I  L  .  Y  I  ,M .  Y  I  L  .  2rM  . 

3  2IL.XlDM.XiOL.YID:-..YIDL.7inr..>  tni  .PP  .  RO  .  c  c. .  opw.  D  wi 

4  G.MX  .  GL X  . Gi*i  Y  .  GLY* .  Gr'iZ  .  3L  2  .  p  JMX  •  SL'LX  .  SUMY  .  SUL  Y  . SUM2  .  SUL2  .  FM  .  FL  .  Gri  *  GL 

5  MM.HL.RRh . SSS . XM. YM . 2M . A . BX . 8 Y . 02 . WRM . wRL . RCM .RCL . RCM . hOL -PPRM. 

o  Arri.Api-.iriM.  TrL.AF'l'i.XML. 

7  KiOa.  VN2  .MEDT  .MSOT  . HOT  . NUT  . MET  . NOUT  .NCKE.  T SAV . DT A .  DT o.  DTC  .  EPl 
DAC  G(2:).WTS(2) 

DaC  S0G00D( 6) .XDOT ( 2t .YCOT ( 2 ) .2D0T) 2 ) .WRONG) 6) .OX ( 2 ) 

1  .0Y(2!  .02(2)  .XP(21 .YP(2) .2P(2) . XOOTP ( 2 ) . YDC TP ( 2 ) . 200T P ( 2 )  .PI  (2)  . 

2  PI2(2).E(2).XMu(2).CCON(2).XN(2) 

COMMON  A1 .A2 .FJI .FJ2.SFJ1 .SFJ2.CF0l.CFJ2.Sl .S2.EPS1 

COMhiOf'l  DT  .  DTriE .  RPrl 

DAC  S-i(6)  .SL(6)  .XMJP(21 

C0M(-IUN  OBJ  .TSAVE.RcA  .RTA.RSN.HP  I  .  THP  I  .na.NOSw  .POM(  6  )  .POL  (6) 

MGM  =  512 
EPpl  =  l.OE-11 
P  r- =  202622077325 
PI (2)  =  147042055061 
PI2  =  203622077325 
PI2(2)  =  150042055061 
HPI  =  201622077325 
THPI  =  203453457437 
REWIND  26 

RIT  2.3.G(2) .WTE.RAOE.WTV.OoJ 
FORMAT  (E9.5T 

RI T  2. 3 .EMAX .GMAX .SMAX . rMAX.TO 
RI  T  2.3.NCKE.HSDT  .i’lET  .fiUuT  . NOSW 
IF  (MSDT)  6.  7.  6 
RIT  2.3.DTA.DTO.DTC 
ERASE  DT 
GO  TO  S 

RIT  2.3.DT.DTMAX.EP1 
HAFDT  =  DT/2. 

RIT  2 . 3  .  N . NEWORG . NT ARG 

RI  T  ^.5.  (Nb(  I  )  .WT..(  I  )  .RAD(  I  )  .  I  =  l.Nl 

RIT  2.5.  (PM( I ) . I  =  1.6) 

READ  TaPc.26.  (  TL  (  J  )  .  (  PX  (  I  .  J  )  .P  Y  (  I  .  J  )  .  P2  (  I  .  J  )  .  I  =  1.9).J  =  9.7) 
READ  TAPE26.  ( TL ( J ) . ( PX ( I . J )  .P Y (  T.  J )  .PZ (  I  .  J  )  .  I  =  1.9).J  = 

NNN  =  6 
T  =  TO 

TMAX  =  Tp+TMAX 
G  =  -G(2) 

ERASE  ((OT  .(wRG.PL.KOB 


CALL  TITLE 

11  CALL  ORGN 

IF  ITEM)  12i2.12 

12  CALL  TEKP 
WOT  10.10 

10  format  (2H1  ! 

CALL  0’_T 

IF  (NCKEI  26.100.26 

26  erase  WM.WL  ’  ■ 

XDOTP  •=  PK(A) 

YOOTP  =  PH(5) 

200TP  =  PHI  6) 

I*  OC  T  I  2  j  -  P  i_  I I  i 

YOOTP(2l  =  PL(Ac  • 

ZOOTPI?)  -  Pul  6  I 

2?  SOGOOD  111  =  PM  (1) 

SOGOOO  :2)  =  PL  II! 

SOGOOO  131  =  PH  121 

SOGOOD  lAI  =  PL  12) 

SOGOOO  15 1  =  PH  13  1 

SOGOOO  161  =  PL  131 

CA..L  Fad  I  WMI  4  I  .WL  I  4)  .XOOTPI  1 1  .XDOTPI  2  1  .XOOT  I  1 )  .XOO’ I  2  )  ) 

CALL  Fad  I WMI5 I .WLI 5) .YOOTPI 1 1 .YOOTPI 2 ! .YOqT I  1 ) .YOOT 12 ) ) 

CALL  fad  I WHI6)  .WL16 1 .ZOOTPI I  I .ZOOTPI2) .ZDOT I  1 ) .ZDOT I  2)  1 

28  CALL  RECT 

WOT  10.29.Eill .Al.XNIl) 

29  FORMAT  I1P35H0  RECTIFICATION  £=E15.7.6H  A=E15. 

1  7.6H  N=£15.7/1H0  I 

30  ERASE  WM.  WL.  DIME.  VNZ 

CALL  POSN 

32  IFINORGI  34.a1,3-. 

31  1FISCEN-1.5E-4I  41.33.33 

41  XCB  =  1 
GO  TO  34 

33  ERASE  KOB 

34  IF  IMSOTI  35.  50.  35 

35  IF  ISCEN-RA02I  36.  38.  39 

36  IF  ISCEN-RAOll  37.  37,  38 

37  DT  =  OTA 
GO  TO  40 

38  DT  =  DTB 
GO  TO  40 

39  DT  =  OTC 

40  CONTINUE 

H  SUB  MGM 

H  STO  HAFOT 

42  CALL  INTN 
GO  TO  72 

50  TSAV  =  OTM£ 

TSAVE  =  T 
NSAV  =  NNN 

IF  (DTHAX-DT)  99,99.96 
98  DT  -  DT  I  OT 
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H 

H 


h 

H 


99  01  =  DT  +  or 

.  SUB  MGM 
SLH  HAFDI 


DO  55  I 

=  1  .  N 

XX  1  I  ) 

=  X  (  I  ) 

YY  (I) 

-  Y  (  I) 

55 

2Z  (  I  ) 

=  2(1) 

Cl-i  (  4  )  = 

XPX 

OKI  5)  = 

Y.PM 

0  M  (  6  )  = 

2  PM 

CL  1  4  )  = 

XPL 

0L(  5)‘  = 

YPL 

QL(61  = 

2PL 

DO  60  I 

=  1.6 

PPM  ( i 1 

=  it  h  (11 

60 

PPL  I I ) 

=  WL  (  I  1 

DO  61  I 

=  1  .  J 

PQM( I ) 

=  PH  (  I  1 

61 

POL( 1 ) 

=  PL( I  1 

SM ( 4 )  = 

XP(  1  1 

SM  (  5  )  = 

YP(  1  1 

SM i 6 )  = 

2P(11  - 

SL(4)  = 

XP(  2  1 

SL(5)  = 

YP(2) 

SL(6)  = 

2P(?) 

CALL  INTN 

6W  (11 

=  a'M  (  1  1 

SL  (1) 

J 

1C 

II 

SM  (2) 

=  WH  ( 2  1 

SL  (2) 

=  WL  (2) 

SH  (3) 

=  wH  ( 3  1 

SL  (31 

=  WL  (31 

66  DT  =  HAFDT 
SUd  MGM 
SLW  HAFUT 
DIKE  =  TSAV 
T  =  TSAVE 

IF  (NNN-NSAV)  63.65 » 69 


63 

NSAV  = 

4 

64 

MNN  = 

NSAV 

65 

DO  68 

I  =  l.N 

X  (  I  1 

=  XX  (I  1 

Y  (  ; ) 

=  YY(  I  ) 

68 

2  (  i  ) 

=22  (1) 

DO  67 

1=1.3 

PM(  1  ) 

=  PQM( I  1 

67 

PL(  I  I 

=  PCL(  I  1 

DO  69 

1=1.6 

WM  (  I  1 

=  PPM  ( 1 1 

69 

WL  { I  1 

=  PPL  (  I  1 

XP(  1! 

=  SMI  4) 

YP(  1) 

=  SMI  5) 

2P11) 

=  SM161 
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XP(2)  =  SL(4) 

YP(2)  =  SL(5) 

ZP( 2)  =  SL(6 ) 

XPM  -  0M(4) 

YPM  =  QM(5) 

ZPh,  =  a:-,(6) 

XPL  =  QL(4) 

YPL  =  QL(5l 
ZPL  =  (1L(6) 

CALl.  iNTi, 
to  70  I  =  1.  3 
QM  (I  1  =  WM  ( I  1 
7  0  OL  ( i )  =  WL  i I  1 

CALL  Fad  <  XP  1  1 1  ,XPt  2)  1  )  .WL(  1 )  .PM(  1  )  .PL(  1  i  ) 

CALL  FAO  I VP( 11  .VP( 2)  .WM(21 .WLI 2) .P>1( 2 ) .PLl 2) ) 
CALL  FaD  (  ZP  ( 1 1  .ZPl  2  1  .Wi-:!  3  )  sV-Ll  3  I  .PM(  3)  .PL(  3  )  ) 
CALL  iiWTU 

Call  FSu  (  Sri  (  1  1  »  SL  (  1  1  *  Wi'i  (  1  )  *  rtL  (  1  )  >  TcM  >  7  El  ) 

IF  (AoSFI fEMl-EPl )  73.  7j.  75 

73  call  FSa  (Sri(2  !  .Sul  21  .Wi.(  ?  1  .WL  (  2  1  .TEy.  7Fl  ! 

IF  (A8SF!T£M)-£Pi:  74.  74.  75 

74  CALL  FSb  (  Sl-l  (  3  )  .  SL  (  3 1  .  WM t  3  )  .  WL  (  5  1  .  TEH .  TEL  ) 

IF  (AbSF(T£M)-£Pll  72.  72.  75 

7  5  DO  71  I  =  1  .  3 
‘  SM  ( I )  =  OM  I  I  1 

71  SL  ( I  I  =  OL  (  I  1 
GO  TO  66 

72  NOT  =  NOT  +  i 

CALL  FAD  (XP(  1 1  .XPl  2)  .Writ  1)  .kL(  1)  .PMl  1 )  .PL(  1  1  ) 
CALL  FAD  t YPl 1) .YPt 2) .Wht2) .WL(2) .PMt2) .PI J 2) 1 
CALL  Fad  t  ZP  ( 1 1  .  ZP  t  4 1  .  Wri  t  3  i  .  WL  I  3  1  .PH  I  a  ).  PL  I  3  1  1 
IF  tNOT-NOuT)  63.84.83 

83  SCEN  =  SOkTF  (PHt  1  )*Pm(  1 ) -rPHIZl.’PVIZ) +PHI  3)  *PMt  3  ) 
GO  TO  7fc 

24  PHIA!  =  WM14t+xnoTP 
PM(5i  =  WM(5)+YDOTP 
PHt61  =  WH(6)+ZOOTP 
S'L  4)  =  RK;Ht4.4)/DT 
SL'5)  =  RK;Mt4.5)/0T 
SL(6)  =  RkMt4.6)/0T 
CALL  OUT 
erase  NOT 

IF  tEHAX-REA)333.333.430 

430  IF  IGMAX-RTA 1333.333.431 

431  IF  tSHAX-RSN1333.333.76 

76  IF  tSCEN-RADORGl  277.277.86 

277  IF  tNOTl  84.279.84 

279  IF  iriTARG-NORGl  169.165.169 

86  IF  IT-TMAXl  202.278.278 

278  PM(41  =  WMI41+XD0TP 
PMi5)  =  WMI51+YOOTP 
PMI61  =  WMI61+ZD0TP 
SLi4)  =  RK.M14.41  /DT 


SL(  51  =  RkH14,51/'DT 
SL(6!  =  R<M(4,o)/DT 
GO  lO  150 

202  IF  (MET)  203.210.203 

203  TEM  =  WTS/RCM  -  WTS/RPM 

TEL  =  SUMX*5UMX  +  SL'MY*SUiSY+3oM2»SUi‘-lZ 
IF  (TEH-(4.*r£L ) )  207.207.210 
207  ERASE  MC<.£ 

CALL  FAD  ( WHI4)  .WL( 4  I .XDOTP I  1 ) .XDCTP( 2  I .PM( 4)  .PL( 4 1  ) 
CALL  FAD  (  WM  (  5  )  .WL(  5  I  .YDDTP  1  1  )  .  YDCTP  (  2  1  .PNi(  5)  .PL(  5  )  1 
CALL  FAD  ( WH(6 )  .WL ( 6  I  .2DOTP i 1 1 .2DDTP (2  I .PH( 6)  .PL(6 1  1 
WOT  10.208 

206  FORMAT  (12H0  COl',ELL/2HO  ) 

GO  TO  IOC 

210  IF  (NOSWl  21 1.88.211 

211  TF  (NbT!  212=38.212 

212  IF  ( T£H-(WT (M3T i , DISINBT )  I  I  214.212.212 

•>1/.  IC  *314  -»1Ci  >1/ 

216  NEwORG  =  NTARG 

217  C'AL_  fad  (  WM  (  41  .WL  I  4  !  .xDOTP  1  1  I  .XDDTPI  2  I  .PM(  4)  .PL(  4)  ) 

A  !  .  c  «  I  ,  ,  J  =  e=  1  .  C  »  .  V  TfA  ,  1  '  .  =  c=  = 

CALL  FAD  iWM(6 I .WL(6 i .ZDOTP ( 1  I .2DOTP 12 ) .PM! 61 ,PL(6 I  ) 
CALL  Switch 
GO  TO  26 

218  NEWOKG  =  0 
GO  TO  217 

68  IF  t AoSF! WM(1 ) /XP (  1  I  )-.05)  65.27.27 

89  IF  1ABSF(WM(2:/YP(  II  I-.05I  50.27.27 

90  IF  (ABSFLWM! 3)/2P ( 1  I I-.05I  91.27.27 

91  IF  (ABSFtWM! 4I/X007P( 1 t 1-.05)  92.27.27 

92  IF  (ABSFIWM! 51 /YDOTP! 1  I  05 >  93.27.27 

93  IF  (ABSF(WM(6)/ZD0TP(1I )-.05l  94.27.27 

94  IF  (ABSF(GMX/XPM|-.05l  95.27,27 

95  IF  !ABSF(GMY/YPM|-.05I  96,27,27 

96  IF  lAdSF(GMZ/ZPMI-.05)  32.27,27 

100  IF  (NDRG)  1030,101.1030 

101  (FlSCEN-1.5E-4i  102,103,103 

102  XOB  =  1 

GO  TO  1030 

103  ERASE  K.DB 

1030  IF  (MSDT)  104,112,104 

104  IF  1SCEN-RAD2)  105,  107,  108 

105  IF  (SCEN-RADl I  106,  106.  107 

106  DT  =  DTA 
GO  To  109 

107  DT  =  DTB 
GD  TO  109 

108  DT  =  DTC- 

109  CONTINUE 

H  SUB  M5M 

H  STO  HAFDT 

CALL  INT 
GD  TO  142 
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H 

H 


H 

H 


112  TSAV  =  T 

NSAV  =  NNN 

139  IF  (DTMAX-DT)  141,141,140 

140  DT  =  DT  +  DT 

141  DT  =  DT  +  DT 

SUd  MGM 
SLW  HAFDT 


DO 

lib  I 

=•  1,  N 

XX 

(11  = 

X  (II 

YY 

( 1 1  = 

Y  (  I  1 

118 

zz 

(11  = 

2(11 

DO 

119  I 

=  1,  6 

PPM 

(  I  1 

=  PI-1  (11 

1 19 

P?  . 

(  i  1 

=  PL  (11 

CALL  INT 

DC 

4.  W  1 

-1,3 

wM 

(II  = 

PM  (  I  1 

120 

SL 

(II  = 

PL  (II 

121 

DT 

=  HAFDT 

SUB  MGM 
SLW  HAFDT 
T  =  TSAV 

IF  (NNN-NSAVI  122,125,123 

122  NSAV  =  4 

123  NNN  =•  NSAV 

125  DO  124  I  =  i,N 

X  (II  =  XX  (II 

Y  ( n  =  YY  (II 

124  2  (  I  I  =  22  (  I  I 

uO  126  I  =  1,  6 
PM  (II  =  PPM  ( I  I 

126  PL  ( I  I  =  PPL  ( I  1 
CALL  INT 

DO  127  I  =  1,  3 
QH  (II  =  PI-1  (II  ' 

127  OL  (II  =  PL  (II 
CALL  INT 

128  CALL  FSB  ( SM ( 1  I ,SL ( 1 1 ,PM ( 1  I ,PL f 1  I , TEM , TEL  I 
IF  (ABSFITEMI-EPl I  130,  130,  134 

130  CALL  FSB  (SM(2 I ,SLi2) »PH(2 I ,PL(2 1 ,TEM,TELI 
IF.  (ABSF(TEMI-EP1  I  132,  132,  134 
132  CALL  FSB  ( SM ( 3  I ,SL ( 3  I ,PM( 3  I ,PL ( 3  I  .  TEM  ,  TEL  1 
IF  (At)SF(TEMI-EPl)  142,142,134 
134  DO  136  I  =  1,  3 

SM  (II  *  OM  (II 

136  SL  (II  =01.  (II 

DO  138  I  =  1,  6 

PM  ( I )  =  PPM  ( I  I 

138  PL  (II  =  PPL  (  I  1 

GO  TO  121 

142  NOT  =  NOT  1  . 

IF  (NOUT-NOTI  146,  145,  146 
145  SL(4)  =  RK.M(4,4)/0T 


SL(5)  =  RK.M('f.5)/DV 
5L(6)  =  Hic..M(4.61/0T 
CALL  OUT 
ERASt  NOT 

IF  (EMAX-REA)333.33i.JiO 

330  IF  (TMAX-RTA)333t33.>.33i 

331  IF  (SWAX-RSN)333.33.;»t  146 

333  WOT  10.334 

334  FORKiAT  i24H0  MAXIMUM  DISTANCE! 

GO  TO  2 

146  IF (kR-RAUORG)  168.168.147 

168  IF  (NBT)  169.165.169 

169  WOT  10.144 

144  FORMAT  ( .  0 1  AX . 1 3H I HPACT  ORIGIN) 

Go  To  2 

147  Do  146  I  =  l.N 

IF  (ul6T( I )-RAu( I) )  77,77.148 
14c  Continue 

149  IF(T-TMAX)  400.250.250 

400  IF  (NOSW)  155,170.155 

155  IF  (NBT)  157.170.157 

157  IF  (DISTiNBT)-RR)  178.170.170 

173  IF  (NTARG)  179.181,179 

179  NtWORG  =  NTARG 

150  CALL  SWiTCH 
GO  TO  100 

181  NEWORG  =  0 

GO  TO  180 

170  IF  (MET)  175,  100.  175 

175  TEL  =  SUMX*SUWX+SUMY*SUMY+SUMZ*SUMZ 
TEH  =  GMX*GMX+GHY*GNYi-Gl4Z+GMZ 

IF  (  rEH-‘(4.*TEL)  )  100.100.176 

176  NC)4E  =  1, 

GO  TO  26 

250  SL(4)  =  R)4H(4,4)/DT 

SL(5)  =  RICM(4,5)/DT 

SL(6)  =  RK.H(4,6)/DT 

150  IF  (NOT)  151,152.151 

151  Call  out 

15A  WOT  10,153 

153-  FORMAT  (25H0  MAXIMU)^  TIME 

GO  TO  2 

77  IF  (NOT)  78.  162,  78 

78  CALL  OUT 

162  IF(I-l)  79,163,79 

163  IF(NORG)  280,  79,  280 

280  WOT  10.  281 

281  FORMAT  (  IHO 12X , 12HIMPACT  EARTH) 

GO  TO  2 

79  IF  (I-N8T)  80,165,80 

80  WOT  10.  82,  N8(I) 

82  FORMAT  ( IHO 1 2X , 1 2H IMPACT  BODY  (2) 

GO  TO  2 


16S  WOT  10.  167 

167  ruRHAT  ( IHO 1 2X . 1 3H IhPACT  TAROeT ) 

GO  TO  2 

END  (l.l.O.O.O.l) 

SU3R0UTINE  OUT 

3  SCEN  =  SQRTF  (PHI  1  )*PK(  1  ) +Pi-.(21  *PM(2  ) +PM(  3)  *PM1  3  )  ) 

VCEH  =  SGRTF  (PHIA)»P;',{4)+P-M5)«P.-1(5)+PM(6!*PH(6)  ! 

5  .IF  (HORGl  6.  9.  8 
8  XEA  =  PH  (1)  -  X 
YcA  =  PM  (d)  -  Y 
ZcM  =  PH  (3)  -  Z 

REA  =  SQRTF  (X£A*XEAt-YEA*YcA-‘ZcA«ZtA)  . 

GO  TO  10 
Y  XtA  =  PH  . 1 ) 

YEA  =  P:-'  (2) 

ZEA  =  PM  (3) 

REA  =  SCEU 

10  IF  (iMORG-NTARG)  11.  12.  11 

11.  XTaRG  =  PW  (1)  -  X  (H3T) 

YTARG  =  PH  (2)  -  Y  (NST! 

ZTARG  =  Pm  (j)  -  Z  (HUT) 

RTA  =  SORTF  (XTARG*XTAkG*YTARo*YTARG+ZTARG*ZTARG) 

GO  To  14 

i  1  XT  ARu  =  Pi-i  i  1 ) 

YTARG  =  PM  (21 

ZTARG  =  pm  (3! 

RTA  =  SCEN 

14  ;F  (NORG-1)  15.  16.  15 

15  XSN  =  PM  ( 1 )  -  X  (NBS) 

YSN  =  PM  (2)  Y  (NBS) 

ZSN  =  PM  (3)  -  Z  (NBS) 

RSN  =  SQRTF  (XSN»XSN+YSN*YSN+ZSN*ZSN) 

GO  TO  17 

16  XSN  =  PM  ( 1 ) 

YSN  =  PM  (2) 

ZSN  =  PM  (3) 

RSN  =  SCEN 

17  TOUT  =  T  -  TO 
CALL  MLO 

WOT  10.  19.  TOUT.  T.  OT .  NORG 

19  format  (llHO  TIHE=F9.4.14H  TAPE  T IHE=F 1 0 . 3 . 1 2H  DELTA  T=F 

1  8.3.17H  CENTER  IS  NO.I3/112H0  POSIT  FROM  EARTH  TA 

2  RGET  SUN  CENTER  VELOCITY  AC 

3  CELERATION  ) 

20  WOT  10.  22.  XEA.  XTARG.  XSN.  PI'I  (1).  PM  (4j.  SL  (4) 

22  FORMAT  ( 3H  X1P6E17.7) 

WOT  10.  24.  YEA.  YTARG.  YSN.  PM  (2).  PM  (5).  SL  (5) 

24  FORMAT  (SH  Y1P6E17.7) 

WOT  10.  26.  ZEA.  ZTARG.  ZSN.  PM  (3).  Pf-i  (6).  SL  (6) 

26  format  oh  Z1P6E17.7) 

WOT  10.  28.  REA.  RTA.  RSN.  SCEN.  VCEN 
28  format  (8H  R1P6E17.7) 

CALL  WML 
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36  IF  (SENSE  SWITCH  1)  37.  42 


37 

PRINT 

19* 

TOUT 

*  T  *  DT 

*  NORG 

PRINT 

22* 

XEA* 

XTARG* 

XSN* 

PM 

(  1  )  * 

PM 

(4)  * 

SL 

(4) 

39 

PRINT 

24* 

YEA* 

YTARG* 

YSN* 

P.'-l 

(2)  . 

PH 

(5)  * 

SL 

(  5  ) 

PRINT 

26* 

2E«* 

2TARG* 

2SN* 

PW 

(31* 

Pf-l 

(6  )  * 

SL 

(  6  ) 

PRINT 

28* 

RLA* 

RTA«  RStH»  SCci'i* 

VCEN 

42  RETURN 

ENU  (1*1*0. 0.0*1) 
SUbRUUTINc  ORON 


4  IF  (iTvJRG)  6*  10*  6 
6  W  T  ill  =  W  T  S  “  W  T  V 
RAUill  =  RAOORG 

10  NORG  =  i.EWORG 

IF  (NOHo)  12*  20*  12 

12  IF  (NORG-i.o(  1 1  1  13*  17*  13 

13  DO  14  I  =  2*N 

I F  ( NOR  G—Nd (1)114*  IS*  14 

1  **  I  i  (NUC 

WOT  10*30 

30  FOki-.AT  (  1H010X.22HORIGIN  bOUY  IS  MISSING  I 
ERASE  TEH 
GO  70  42 

13  J  =  ! 

K  =  Nb  ( 1 ) 

No  (1)  =  N6  (01 

No  (J)  =  R 

TEN  =  wT  (  1 1 

WT  ( 1 1  =  WT  ( 0 1 

WT  (J)  =  TEM 

TEL  =  RAU  ( 1 1 

RAU  (1)  =  RAO'  (01 

RAO  (0)  =  TEL 

17  RADI  =  3.  *  RAO  (11 

RA02  =  100.  ♦  RAO  (  1 ) 

RAOORG  =  RAO  (1) 

RAD(l)  -  RAOe 
WTS  =  WT  ( 1 1  +  WTV 
WT(1!  =  WTE 
GO  TO  25 

20  WTS  =  WTE  +  WTV 
RAOORG  =■  RAOc 
RmoI  =  3.  *  KAOE 
RA02  =  100.  *  RAOE 

25  IF  (NTARG)  29*  26*  29 

26  IF  (NORG)  28*  27*  28 

27  NBT  =  0 
GO  TO  35 

28  NBT  -  1 
GO  TO  35 

29  IF  (NTARG-NORG)  31*  30*  31 

30  NBT  =  0 
GO  TO  35 

31  DO  32  I  =  1*  N 


Jil 

■  55 


33 

35 

JO 

JO 

j9 

40 

41 
4  2 


J 


5 

7 

8 

10 

9 

12 
1 1 
17 

13 

14 

15 

16 

19 

20 

21 

22 

24 

25 

26 


IF  (imIARG-No(  I)  I  j2.  j3»  32 

CONTINUt 

WOT  10.55 

FORMAT  (  IHOlOX  .22HTAR&ET  dOOY  IS  MISSING 
ERmSE  TEH 
GO  TO  42 
NBT  =  I 

IF  iriORG-l!  JO.  39.  36 
CO  33  I  ^  1=  N 
IF  (“;b(I)-ii  ja.  40,  38 

Cvji.T  ii>Ut 

NBS  •=  0 
GO  To  41 
OuS  =  I 
TEH  =  1. 

RETURN 


V>  i; 

V 


cNu 

Subroutine  title 

TEh  =  1. 

WOT  10,3 

format  llhl5X,17HN  oODY  TRA.JECTOR Y/ IHO 10 X , 2 OHGEN ER AL  ELECTRIC  CO./ 
1  lH0i0X,8HM.S.V.D./lH0l 
WOT  10 . 5 . TO 

FORMAT  ( IH020X ,22HSTART ll.G  TAcLE  TIME  »  F10.3I 
IF  (ucWURGI  10.7.10 
erase  TEH 

WOT  10 ,8 .NEwORG.WTE 

FORMAT  ( 1H020X,14HORIGIN  IS  BODYI2,8H  MASS  =  1PE14.6) 
uO  TO  11 

DO  121  =  l.H  '  - 

IF  (NEWORG-Nl)(  I  1  I  12,0-12- 

WOT  10.8.NB(  I  I .wT (  I  I 

GO  TO  11 

CONTINUE 

IF  (NTARG)  14,17,14 
ERASE  TEH 

WOT  1 0 , 1 J , N T aRG , w T E 

format  (  1H020X,19HO£ST  Ii.aTIUN  IS  oOOYI2.BH  i-iASS  =  1PE14.6) 

GO  TO  20 
DO  161  =  1,N 
IF  (NTARC-H6( I n 16,15,16 
wOT  10 , 13,Nb(  I  I ,WT ( I ) 

GO  TO  20 
CONTINUE 

FORMAT  ( lh020X,17HMA5S  OF  VEHICLE  =  1PE14.6) 

WOT  10,19,wTV 
IF  (N-ll  33,33,21 
WOT  10.22 

FORMAT  (  1H020X,17HOTHER  BODIES  ARE-) 

IF  ITEM)  24,26,24 
WOT  10 ,25,NOT ,WTE 

FORMAT  ( 1H025X,6HBOOY  II, 8H  MASS  =  1PE14.6) 

DO  321  =  l.N 


IF  (NEWUK(J-Hb{  1  1  i  27,32.27 

27  IF  (NTARG-Nb( I ) 1  28.32.28 

28  WOT  10.25.NB( I ) .WT ( I  1 

32  COMINUt 

33  WOT  10.29,G(2J 

29  FORMAT  (  1M020X  .2 AnGRAV  1  TAT  lOi.AL  tON5TA(;T  =lPf;i4.6) 

IF  (MSDT)  34,36.34 

j4  WOl  10  .  .  OT  A  .  uT  o  .  L/T  C 

35  FORMAT  (1h020X.6aO^  1  =F7 • 3 . 3X .6nOT  2  =F 7 • J , jX . 6HDT  3  -F7.3) 

GO  T;..  39 

WwT  i0.j7,£Pl.DT.M^A 

37  FORi-iAT  ilH020X,24A£PMi.jij  Cr  i  ..T  cGR  a  T  1 01.  =  IP  E9 . 2 , 3X  ,  1 8HMAX  I  MUM  DE 
1  LTA  T  =  0PF5.1) 

39  IF  (MET)  0. 42*40 

40  aOT  10*4:. 

4  1  Fort  AT  ( lri020X . 53HCOwElL  AhU  El. CAE  RETnoOS  ARE  USED) 

GO  TO  50 

42  IF  (NCAE)  43.45.43 

43  WOT  10.44 

44  '^OR''imI  (  IRO  20X  .  AOrtbiiCRt  METhuD  IS  USEO) 

GO  To  50 

40  WOT  10.47 

47  FOR.-iAT  (1H02CX.21HCOWELL  XEThOO  IS  OSEo) 

50  IF  (MuSwl  52.54,5? 

5  2  w  0  T  1 C  *  3  o 

53  FORMAT  ( 1H020X , 21MTHE  ORIGIR  MAY  CHANGE) 

GO  TO  58 

54  *oT  10.55 

55  FORMAT  ( 1H020X . 19HTHE  ORIGIN  IS  FIXED) 

5  8  R  E  T  UR  1.  '  , 

EIiU  11.1.0.0.0.0) 
oOoROUTiNt  T cRP 
10  Go  25  Nn  4hI.i.,65 

20  IF  (TlINNI-T)  ,25.  '30.  30 

25  continue 

26  DO  27  IT  =  1,  7 

TL(  IT )  =  TL( IT+60)  ■ 

DO  27  J  =  1.9 

PX  ( J  ,  I  T  )  =  PX  ( J. I T+60 ) 

PY  (J.IT)  =  PY  (J.IT+60) 

27  PE  ( J. I T )  =  PE  ( J. I T+60 ) 

REmD  TaPE26.  (TL(J).('PX(I.J).PY(I.O).PE(I'.J).I.=  '1.9).J  =  8.67) 
NNN=  6 

ou  T  0  1 0  ,  '  '  • 

30  NNN  =  NN 

TI  (1  )  =■  T  -  TL  (NN-3) 

TI  i2)  =  T  -  TL  (.NN-2i  ■  ’  '  , 

TI  (3)  =  T  -  TL  (NN-1) 

TI  (4)  =  T  -  TL  (NN) 

TI  (5)  =  T  -  TL  (NN+1) 

TI  (5)  T  -  TL  (NN+2)  ,  ' 

32  TT. =  TI  (4)  *  TI  (5)  *  TI  (6) 

TTT  =  TI  (3)*TT 
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H 

H 

H 

H 

ri 

H 

H 

H 

H 

H 


CLil)  =■  TI(2i*TTT/(-2'»859,840-) 

CL(2)  =  TI ( 1 )*TTT/5971966. 

CL  (3)  *  T1  (i)  •  Ti  (2)  •  TT  /I-  2985984.) 
TT  -  TI  (1)  *  Tl  (21  *  Tl  (ij 
TTT  =  TI(4l*TT 

CL  (4)  *  TT  *  TI  (51  .*  Tl  (6)  /  2935984. 
CL(5)  -  TTT*T+(61 / 1-5^71963. > 

CL(6)  «  TTT*T I ( 5  I /29859840. 

33  DO  36  K  =  1.  N 
NA  =  No  iKI 

44  X  i  ivl  a  PX  (NA.Ni.-31  *  CL  'll 

1  -11  *  CL  (31  +  PX  (NA.rt..)  *  Ci. 

2  A.NN+21  *  CL  (61 

35  Y  (  k.)  »  PY  (iiA.NN-3l  *  CL  (1) 

1  -11  *  CL  (31  +  PY  (Na.NNI  *  CL 

2  A.NN+21  *  CL  (61 

36  Z  (  Xl  =  P2  (HA,Nri-3l  »  CL  (1) 

1-11  *  CL  (31  PZ  (i)A.i.Nl  *  CL 
2  A.NN+21  *  CL  (61 

IF  (NORGl  40.43.40 
40  Ob  42  K  =  2.N 

X(M  ■=  X(<l-X 

Y(K)  *  Y(i;)-Y 

42  2(kl  »  Z(K1-Z 

X  =  -X 
Y  - 

z  =  -z 

43  RETURN 
EN13  (1.1.0.0.0.01 
SUbROUTINE  INT 

6  CALL  Fr.PSlPi-ilAl  .PLl  41  .DT  .RXh(  1.1  )  .RX,L(  1  .  1  I  1 
CALL  F+,P5.(Pi.)(5  1  .  PL  (  5  1 .  OT  .RXM  ( 1 . 2  I  .RXL(  1.2  1 1 

7  CALL  FnPS(PM(61  .PL(61.0T.RiCM11.31 .RXLl 1.31 1 
SAM  s  P.Mlll 

SAL  *  PL(11 
SBi'i  =  PM(21 
S8L  =  PL(21 
SCH  =  PM(31 
SCL  =  PL(31 
CALL  ACC 

8  CALL  FMPS(  FMX.Fi.X.DT.RKMl  1.41  .RlCLl  1.4)  1 
CALL  FMPS(FMY,FLY.0T.RXM(1.5) .RXL(1.5I ) 

CALL  FNPS(FMZ.Fi.Z.DT.RKi-ill.61  .RK.L(1.6)  1 

CAl  RAH-12 
SUB  MGM 
SLW  FM 
CAL  RXL-12 
SUB  MGM 
SLW  Fl 
CAL  RkM-16 
SUB  MGM 
SLW  GM 
CAL  RIU.-1* 


♦  Px  (NA.NN-2)  *  CL  (21  +  PX  (NA.NN 
(4)  +  PX  (NA.NN+1)  «  CL  (5)  +  PX,  (N 

• 

+  PY  (nA.liN-2)  «  CL  (2)  +  PY  (NA.NN 
(4)  +  PY  (.NA.NN  +  1)  *  CL  (5)  +  PY  (N 

+  PZ  (NA.NN-21  *  CL  (21  +  PZ  (NA.NN 
(41  +  PZ  (NA.NN+ll  *  CL  (5)  +  PZ  (N 


A- 45 
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H 

sue 

MGM 

H 

SLW 

GL 

H 

CAL 

HK..M-20 

H 

SUb 

hGM 

H 

SLW 

HM 

H 

CAL 

RiCL-20 

H 

SUd 

HGM 

H 

iVLW 

HL 

10 

CkLL 

FA0iPW(41  »PL(4i  #Fri*FL»  Aib  *  AL  ) 

CALL 

F«b(P!<  (  5  1  .PL(  S  1  .Gi-I.GL.BFi.BL  ) 

CALi. 

FADtPi-t(61  .PL(61  .HH.HL.CH.CL  ) 

CALL 

Fi''iPS(AMtAL.0T.A<?-l(2.1  i  ,P^Li2.1)  ) 

c  A  L  r 

■.-'.PS  :  5M  ,BL  .DT  2  :°<.L<  2-?n 

CALL 

FMFSlCMtCL.DT.fiAM(2t31  tRK,L(2»3)  1 

H 

CAL 

Rn;-. 

M 

SUB 

MGM 

h 

SLW 

FM 

H 

CAL 

RK.L 

h 

SUB 

MGM 

M 

SLW 

FL 

M 

CAL 

RMM-4 

H 

SUB 

MGM 

H 

SLW 

GM 

H 

CAL 

Rial  -4 

H 

SUB 

MGM 

H 

SLW 

GL 

H 

CAL 

RICM-8 

H 

SUB 

MGM 

H 

SLW 

HM 

H 

CAL 

RiCL-8 

H 

SUB 

MGM 

H 

SLW 

HL 

14 

CA..L 

FAD  (PM( 1 ) .PL ( 1 ) .FMfFL.SAM.SAL) 

CALL 

FAD  (PM(2) .PL(2) .GM.GL.SBM.SBL) 

CALL 

FAD  (PM( 3 ) .PL( 3) .HH.HL.SCH.SCL) 

T  =  T+HAFOT 

CALL 

TERP 

CALL 

ACC 

16 

CALL 

FHPS(FMX.FLX.DT.RKM(2.4) .RXL(2.4) ) 

CALL 

FrtPS(FHY.FLY.0T.RXM(2.5) .PXL(2.5) ) 

CALL 

FMPS(FM2.FLZ.DT.R<M(2.6) .RXL(2.6) ) 

H 

CAL 

RXM-13 

H 

SUB 

MGM 

H 

SLn 

FH 

H 

CAL 

RaL-13 

H 

3UB 

MGM 

H 

SLW 

FL 

H 

CAL 

RKM-17 

H 

SUB 

MGM 

SLW 

GM 

H 

CAL 

RICL-17 

H 

SUB 

MGM 

H 

SLW 

GL 

H 

M 

H 

H 

H 

H 


n 

r'- 

h 

H 

H 

M 

H 

H 

H 

H 

H 

H 

H 

h 

H 

H 

H 

H 


CAL  RlCM-21 
SUd  MGM 
SLW  HM 
CAL  Rf;L-21 
SUB  MGM 
SLW  HL 

20  CALL  FAD(PH(4) .PL14) .rM-FL.AM.AL) 

CALL  FAD(PM( 5) .PL(5 ) .GM.GL.BM.BL) 

CALL  FAD(PM(6) .PL(6) .HM.HL.CH.CL) 

CALL  FMPS  (  AM.AL  .OT  .RiCl-i(  3 . 1  )  .RK.L(  3  .  i  i  ) 

”  avdc  (  eM.  At  ,r\T  .SKWI  3.  ?  )  .RKL  (  3 .2  )  ) 

CALL  FM?S(CM.CL.Di.RKH(3.3) .R<L(3.3)  ) 
cal  R<M-1 
SUB  HGM 
SLW  FM 
CAL  RkL-1 
SUB  MGm 
3LW  KL 
cal  RKM-5 
SUB  MGM 
SLW  GM 
CAL  RAL-5 
SUB  MGM 
SLW  GL 
CAL  RKM-R 
Sub  iMGM  ^ 

SLW  H  M 
CAL  RAL-9 
SUB  HGM 
SLW  HL 

2A  CALL  FACi  (  PM(  1  )  .PL  (  1  )  .FM.FL  .SAM.SAL) 

CALL  Fad  (PM(2)  .PL(2) .GM.GL.SBM.SBL) 

CALL  fad  (PM(3 ) .PL( 3 ) .HM.HL.SCM.SCL ) 

CALL  ACC 

CALL  FMPS  (  FM;C.  FLA.  DT  .RKM(  3,4)  .RKL(  2..4)  ) 

CALL  FMPS(FMY.FLY.0T.R);M!3,5) .RKL(3,5) ) 

CALL  FMPS(FMZ.FLZ.DT.RKM(3.6) ,RKL(2.6) ) 

28  CALL  FAD  ( PM ( 4 ) . PL ( 4  I .R AM ( 3 ,4 ) .RKL f 3 . 4 ) . AH . AL ) 
CALL  FAD  (PM(5) .PL(5).RAH(3.5) .RAL(3.5) .BH.BL) 
CAlL  fad  (PM(6) .PL(6) .R,.M( 3.6) .RKL( 3.6) .CM.CL) 
CALL  FMPS(AM.AL.DT.RAM(4.1) .RAL(4.1) ) 

CALL  FiiPS(BH.bL.DT.RAH(4.2)  .RAL(4.2)  ) 

CALL  FMPSI CH.CL.0T.RAH(4,3 ) .RAL! 4.3) ) 

32  CALL  FAD  ( PM ( 1 )  .PL ( I ) .RAH ( 3 . 1 ) .R AL 1 3 . 1 ) . SAM . SAL ) 
CALL  FAD  (PM(2)  .PL(2  )  .RAM( 3.2) .RKLt 3.2) .SBM.SBL) 
CALL  FAD  ( PHI  3 ) .PL( 3) .RAM( 3.3) .RAL( 3. 3 ) .SCM.SCL) 
T  =  T+HAFDT 
CALL  TERP 
VNZ  =  1. 

CALL  ACC 
VNZ  =  0. 

Call  fmps(Fmx.flx.dt,ram(4,4) ,rali4.4) ) 

CALL  FrtPS(FMY.FLY,DT.HAM(4.5)  ,RAH4.&1  J 
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CALL  FnP5(FrlZ,FLZ.0T.ltKi-i(A.6)  .RiLL(4.6)  ) 
JA  DO  42  NA  =  1.6 
SDki  =  RK-Md.NA) 

SDL  =  RHL( 1 .NA) 

SEM  =  R<M(2.NAI 
SEL  =  RK.L(2.NA1 
SFH  =  R<M(3.(4A1 
SFL  =  RICL(3.i.AI 
Cw-  -  .liC  i  I  •»  *  i.A  i 
SOL  -  RkL(4.i<m) 

JO  CALL  Fad  (  SEi-i. SEL  . SFK > SFL  .SEi’i » SEL) 

CALL  Fad  {  SEi‘4  *  SEL  »  oEM  .  SEL  •  SEM » SEL ) 

36  CALL  Fau  (  SDM  » SDL  .SEIm  »SEL  .  Sti-i » SEL ) 

CALL  Fad  (SoH.SOL.SEl-i.SEL.SEM.SEL) 

CALL  FDYS  ( SEH. SEL. 6.0. SEM. SEL) 

SFM  =  PM(NA) 

SFL  =  PL(NA)  ■ 

40  CALL  fad  (SFM.SFL.SEm.SEL.SFM.SFL) 
PM(NA)  =  SFM 
42  PL(NA)  =  SFL 

return 

END  ( 1 .1 .0.0 .0.0 ) 

SudROUTINE  ACC 

2  CALL  SO  (SA.M.SAL.AM.AL) 

CALL  SO  (SBM.SdL.oM.bL) 

CALL  SO  (SO^.SCL.CM.CL) 

3  CALL  FAD  ( AM . AL . bM . BL .RM . RL ) 

CALL  Fad  (RM.RL.CH.CL.RO.RL) 

4  CALL  DP30RT  (R0.RL.R8.SS) 

5  CALL  FMP  (RR.SS.RO.RL.RRR'.RRL) 

6  CALL  FDY  (WTS.ZER.KRH.RRL.TEM.TEL) 

7  CALL  FMP  (  SAM  .  SAL  . T EK . TEL .GMX .GLX ) 
CALL  FrtP  (  Sort  .SBL  .  TE« .  TEL  .GMY  .GL  Y  ) 
CALL  FHP  (  SCM  .  SCL  . TEM , TEL .GMZ .GLZ ) 

70  IF  (XOB)  71.8.71 

71  CALL  FHP  (Rvj.RL.RRI-i.RRL.T  I  ( 1  )  .T  I  (2  )  ) 
CALL  FMPS  (CM. CL. 5.0. TEM. TEL) 

CALL  FDY  ( TEM.TEL.RO.RL.TEM.TELl 
CALL  FSoS  ( TEM. TEl. 1.0. TEM. TEL) 

72  CALL  FDY'  (  T EM .  TEL  .  T  I  ( 1 1  .  T  I  (  2  !  . T EM  .  TEL  ) 
CALL  FMPS( TEM. TEL. OBJ. TEH. TEL) 

CALL  FriP  (  TEM  .  T  EL  .SAM  .  SAL  .XM  .  XL  ) 

CALL  FMP  ( TEH.7EL.S6H.S6L.YM.YL) 

73  CALL  FDY  ( 2 . 0 . ZER . T 1 ( 1 ) . T I ( 2 ) .ZM .ZL) 
CALL  FMPS  (ZM.ZL.OBJ.ZM.EL) 

CALL  FSB  (  TEM.TEL.Zi-i.ZL.ZH.ZL) 

CALL  FmP  (ZM.ZL.SCH.SCL.ZH.ZL) 

74  CALL  FSB  ( GMX .GLX .XM .XL .GMX .GLX ) 

CALL  FSB  (GHY.GLY.YI-I.YL.GMY.GLY) 

CALL  FSB  (GMZ.GLZ.ZM.ZL.GMZ.GLZ) 

8  ERASE  SUMX.SULX.SUMY.SULY.SUMZ.SULZ 

9  DO  29  J  =  1.  N 
XM  =  X  (J) 
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YM  «  Y  (J) 

ZM  =  Z  (J) 

WTA  =  WT  iJ) 

12  CALL  FSBS  (SAM.SALtXM.XM.XL) 

CALL  FSBS  (SBHtSBL.YM.YM.YL) 

CALL  FSdS  (SCM.SCL.2M.ZH.2L) 

13  CALL  SQ  (XM.XL.AM.AL) 

CALL  SQ  (YM. YL.BM.BL) 

CALL  SQ  (ZM.ZL.CK.CL), 

14  CALL  (-AO  (  AM  .  Au  .  tlM  .  OL  .nri  .nu  I 
CALL  FAD  (RM.RL.CM.CL.Rh.RL) 

15  CALL  OPSQRT  < RM .RL . RRR .SSS ) 

IF  (VNZ)  16.17.16 

16  OIS(J)  =  R.M 
OIST(J)  =  RRR 

17  CALL  FMP  (RM.RL.RRR .SSS.RM.RL) 

CALL  FOY  (XM.XL.RM.RL.AM.AL) 

CALL  FDY  ( YM.Vl.RM.RL.BM.BL) 

CALL  FOY  ( ZM.ZL.RM.RL.CM.CL) 

A  =  (X(J)*X(J1+Y( J)*Y( J)+Z( J)*Z(J)  )**1.5 

BX  =  X(J)/A 
BY  =  Y(J)/A 
BZ  =  Z(J)/A 

26  CALL  Fads  ( AM.AL.BX.AM.AD 
CALL  FADS  ( BM . BL . B Y . 0M . 6L ) 

CALL  K/VOS  (CM. CL. dZ. CM. CL) 

22  CALL  FMPS  ( AM . AL . WT A . AM . AL ) 

CALL  FMPS  (BM.dL.wTA.BM.BL) 

CALL  FMPS  (Cm. CL. WTA. CM. CL) 

23  CALL  FAD  ( AM . AL . SUMX . SULX .SUMX . SULX ) 

CALL  Fad  (bM. BL. SUMY, SULY. SUMY. SULY) 

25  CALL  FAD  ( CM , CL , SUMZ . SULZ . SUMZ , SULZ ) 

CALL  FAD  (GMX.GLX, SUMX, SULX, FMX.FLX) 

CALL  Fad  (gmy.gly, Sumy, suly.fmy, FLY) 

32  CALL  fad  ( GMZ , GLZ , SUMZ .SULZ .FMZ ,FLZ ) 

CALL  FMPS  ( FMX.FLX, G. FMX.FLX) 

CALL  FMPS  (FMY.FLY.G.FMY.FLY) 

CALL  FMPS  (FMZ.FLZ.G.FMZ.FLZ) 

RETURN  ■  / 

END  (1,1, 0,0, 0,0) 

SUBROUTINE  SWITCH 

1  WOT  10,2 

2  format  (0HO  SWITCH  ) 

IF  (CIST(NBT)-20.*RAO(NbT) )  5,5,8 
5  OT  =  OT/0. 

GO  TO  10 
8  OT  =  OT/2. 

10  HAFOT  =  OT/2. 

25  QM(1)  •  137. 

QM(2)  =  -300. 

QM(3)  <  300. 

QM(4)  =  -200. 

QH(5)  »  75. 
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0M(6)  =  -12. 

TSAVt  =  T 

IF  (NNN-5)  14,14.15 

14  NSAVE  =  4 

GO  TO  16 

15  NSAVE  =  NNN-2 

16  XPN  =  XtNUT) 

YPM  =  Y(NbT) 

ZPM  =  Z(NBT) 

2o  LALL  FSbS  (  PM(  U  .PL(  1  j  :XP.“,»PPM(i  !  ,PPL(  1  )  ) 

CALL  FSBS  (Ph(2) .PL(2).YPMsPPM(2),PPL{2) I 
CALL  FSaS  (PH(3)  .PL(  3)  .ZPiM.PPMO)  .PPL(  3)  ) 

27  CALL  FMPS  (PPM(  1  )  .PPL(  1  I  .QKd  )  .WM(1  )  ,WL(  1  )  ) 

CALL  FMPS  (PPM(2).PPL(2I .OM(l),WMi2),WL(2) ) 

CALL  FMPS  (PPM( 3) »PPL(31 .QM( 1 ) ,WM(iU  .WL( 3) ) 

DO  35  1  =  2.6 

28  CALL  INT 

29  SL(4)  =  RXM(4.4)/DT 

5L(5)  =  RKM{4.5)/DT 

SL(6I  =  RXM(4.6)/D7 

CALL  OUT 

XM  =  X(NbT) 

YM  *  Y(NbT) 

ZM  -  Z(NbT) 

FK  =  OM( I  I 

CALL  FSbS(PM( 1 1 . PL ( 1  I .XM .QL ( 1 ) . QL ( 2 )  I 
CALL  FSBS(PM( 21 . PL ( 2  I . YM . QL ( 3 1 . OL i 4 i ) 

CALL  FSBS(PM( 31 .PL( 3  I . ZM .OL ( 5 > .OL ! 6 ) ) 

3D  CALL  FMPS  ( OL ( 1  I .OL ( 2  I . FM . FMX ,FLX ) 

CALL  FMPS  (OL(3) .OL(4l .FM.FMY.FLY) 

CALL  FMPS  (OL(5) .OL(6) .FM.FMZ.FLZ) 

CALL  FAD  (WM(  1  )  .WL(  1  )  .FMX.FLX.WMd  j  ,WL(  1  )  ) 

CALL  FAD  ( WM( 2 ) .WL (2 ) .FMY,FLY.WMt2) .WL(2 ) ) 

35  CALL  Fad  (WM(3).WL(3).FM2.FLZ,WM'3),WL«3)  ) 

GM  =  -60.*DT 

CALL  FDYS  ( WM ( 1 5 . WL ( 1 ) . GM,PPM( 4 ) .PPL ( 4 ) ) 

CALL  FDYS  ( WM ( 2 ) . WL ( 2 ) . GM.PPM ( 5 ) .PPL J 5 ) ) 

CALL  FDYS  (WM(3) .WL( 3) .GM,PPM(6) ,PPL(6) ) 

EPSL  =  SORTF  (PPM(1)**2+PPM(2)**2+PPM(3)**2)*4,0E-10 

37  CALL  ORGN 

38  DO  40  I  =  1.6 
PM( I )  =  PPM( 1  ) 

40  PL! 1 )  =  PPL( I ) 

T  =  TSAVE 

IF  (NNN-NSAVE)  41.43.42 

41  BACKSPACE  26 
BACKSPACE  26 

READ  TAPE26.  ( TL ( J ) . (PX ( I , J ) ,PY ( I , J ) ,PZ ( I , J ) ,  I  =  1.9),J  =  8,67) 

42  NNN  =  NSAVE 

43  CALL  TERP 
DO  44  1  «  2,6 
CALL  INT 

WOT  10,45'.T,PM(1),PM(2)  ,PM(3) 


44 


45  FORMAT  (  IHOF  1.2 . ^ •  IP  3c  1 7 . 7  ) 

50  CALL  FSB  ( QL ( 1 ) t OL ( 2 ! . PH ( 1 ) .PL ( 1 ) . SM ( 1 ) , SL ( 1 ) ) 

CALL  FSb  (QL(  3  )  .0L(  4)  .>:•:(  2  )  .PL(  2)  .S;-il  2)  .SL  (  2  )  ) 

CALL  FSB  (QL(5  )  .0L(61  .P.H(3)  .PL(  3  )  .S.-1I  3)  .SLI  3)  ) 

00  53  I  =1.3 

52  IF  (AdSF(Sim(  I)  )-EPSLJ  53.53.58 
5j  COMII.Lc 
55  RETURN 
58  HH  =  l-loAVc 

CALL  FDYS  i  o.’i  i  1  i  *  SL  i  1  J  .  H.H .  PM  {  1  I  ,PC  ( 1  J  ) 

CALL  FDYS  (  SM(  21  .Sl  (  2)  ..HH.Pi-U  2  i  .Pl:2  n 
CALL  FDYS  ( SH ( 3 1  . aL ( 3 ) . hH. PM f 3 1 .PL  I  3 )  ) 

CALL  FAU  (PPn(  41  .PPL(4)  .PiS(  1  1  .PLl  1 1  .PPMI  4)  ,PPLI  4  )  ) 

CALL  FAD  :PPri(  51  .PPL(51  .P.-i(2)  .PLl  21  .PP;-1I  5)  .PPLI  5  1  1 
CALL  fad  (PPi'il  61  .PPLi6  1  .PHI  3>  .PLl  31  .PPM  I  61  .PPL!  fa  1  1 
SO  TO  38 

END  (1.1. 0.0. 0.0! 

RFCriFiCATION  oY  MARY  ELLEN 
SodROuTINE  RcC! 

ECUI VALENCE! WHl 1 1  . X 1 K 1 . ( RM 1 2 1 . Y I M I  . ( WM I  3 1 . 2  I M 1  . I WM I  4 1  , X  I  DM )  . 

1  (  Wfi  (  61  /Z  1 0‘4  1 ,  (  Wi.c  (  5  1  .  Y I  DM  1  .  1  WL 1  1 1  .  X I L  1  .  I  WL I  2  1  .  Y  I L  1  .  I  WL  I  3 1  » 2  I  L  1  . 

2  (WL(41.XIDL1.(WL(51.Y10L1.IUL(6I.21DL1 

DAC  IX(9.67  1.IY(9.67i.I2(9.6  7).TLI671  .RXMI 4.6 1 . R XL  I  4. 6 1 . NB I  9 1 . 

1  WTISI .RAC(91 .  DUMHY(27)  .DI S I  9  I .DI ST  1 9 1 . PM  I  6 1 .PL I  6 1  .PPM  I  6  1  . 

2  PPL  (61  .Oi-((6  1  .0l(  6  1  .  WM(  6)  .aL(6  1  .XX  (9)  .  YY  I  91  .22  (  9  1  .  T  I  (6  1  .CLI  6  1 
.  CuMl-iON  NEWORG .  2ER  . FMX . Fl X . FMY  .FLY  « FM2  .FL2  .  AM .  AL .  BM  .  BL  .  CM .  CL 

COWr.ON  NURG  .NT  AR  G  .NSUI.  .('. .  INI'! .  nNn  .  T  » TO  .  1  MAX  .DTMAX.HAFDT  .WTE.WTV.MGM. 

1  XTARG.YTARG.2TARG.SCEN.VCEN.SMAX.GMAX.EMAX.KAD1 .RAD2.RADE.WTA. 

2  NBE.NBT.NdS.KAOOKG.SAM.SBH.SCM.  SAL.SdL.SCL.XIM.XIL.YIH.YlL.2IM. 

3  2IL.  .XlUn.xIOL.YI  13H .  Y I DL  .21  DM  .21  DL  .Rn.KL.RR.RO.SS.RRH.RRL.TEM.TEc. 

4  GiMX  .GLX  .  Ui*i  Y  .  GLY  '.  Gh2  >  GL  2 .  SU;*iX  .  aULXN  aUW  Y  »  SUL  Y  .  SUM  2  .SUL2.FH.FL.G(X.GL. 

5  Hi'i.HL.RRH.SSS.  XM .  Yri .  2i'i .  A  .  BX  .  BY  .62.  *VRM  .WRL.RCM.RCL.  ROM  .RUL.RPPM. 

6  XPH.XPL.YPM,yPl.2PHs2PL. 

7  XGB.VNZ.HEDT.iMSDT.riDT.fTOT.I-iET.NOUT.NCXE.TSAV.DTA.DTB.DTC.EPl 
DAC  XXSO(21 .  XMI ( 21 

DAC  X(21.Y(21.2(21 .XDOTI 21 .YDOT (2 ' .200T 121. PX (21. PYI21,P2I21. 0X121 

1  .QY 12 1 .02(2 1 .XP( 21 . YP( 2 1 .2P( 21 .XDOTP I  21  . YDOTP I  2 1 .200TP 12 1 .PI  12 1  . 

2  PI  2  (2r.E(21  .X.Mj(  2  1  .CC0N(21  .XN(21 

COMMON  A1.A2.FJ1 . F J 2 .SF J 1 . SF J2 .CF J1 . CF J2 . S 1 .S2.EPS1 

COMMON  OT.OTME.RPM 

DAC  SM(>6  1  .SL(61  .XMJP(2l 

COririON  ObJ  .TSAVE.kEA.RTA  .RSN  »HP  I  »THP  I  .  XX  .NOSW 

100  CALL  FMP  (X(ll.  X(2  1.  XOOTdl.  XDOTI  21.  RRl.  RR21 

101  CALL  Fi-iP  (Y(ll.  Y(21.  YDOT  ( 1 1  .  YDOTI21.  Tl  .  T21 

102  CALL  FAD  (Tl.  T2.  RRl.  RR2.  RRl.  RR21 

103  CALL  FMP  (2(11.  2(21.  2DOT(ll,  2DOT(21.  Tl.  T21 

f04  CALL  FAD  (Tl.  T2.  RRl.  RR2.  RRl.  RR2  1 

VECTOR  DOT  PRODUCT  OF  R.RDOT  IN  LOCS.  RR1.RR2 

105  CALL  SO  (XDOTlll.  XDOT(21.  SOI.  SD21 

106  CALL  SO  (YDOTdl.  Y00T(21.  Tl.  T21 

107  CALL  FAD  (SDl.  S02.  Tl.  T2.  SDl .  SD2 1 

108  CALL  SO  (2DOT(ll.  200T(2I.  Tl.  T2I 

109  CALL  FAD  (Tl.  T2.  SOI.  S02.  SDl.  SD2 1 
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110 

111 

112 

113 

114 


120 

121 

i22 

1^3 

124 

12  3' 
126 
'l30 


131 

132 

133 

135 

C 

l3b 

C 

131 

138 

139 

140 

141 

143 

144 


VECTOR  DOT  PRODUCT  OF  ROOT  WITH  ITSELF  ISD0T**2I  IN  SDlt2 
CALL  SO  (X(ll.  X(2l.  ARlt  AR2) 

CALL  SQ  ( Y (  1  1  .  Y ( 2  )  »  T1 .  T2! 

CALL  FaO  (T1.  T2t  ARl.  AR2 .  ARlt  AR2) 

CAuL  SO  (2(l)t  2(2)-  Tit  T2) 

CALL  FAD  (Tit  T2t  ARlt  AR2.  ARlt  AR2) 

ChLL  dPSORT  (ARl.  AR2t  ARlt  AR2) 

l-.AONlTUOt.  OF  VECTOR  K  IN  LOCS.  ARltAK2 
call  FHPa'  (  Ai-0  (  1  i  tX;-,  I  (  2)  tXF.SQ(  2  )  tCl  tC2  ) 

Call  FDY  (2.0t  OtOt  ARlt  AR2t  Tit  T2) 

Call  FDY  (SDlt  SC)2t  Clt  C2.  TTlt  TT2) 

CALL  FSo  (Ylt  T2.  TTlt  TT2t  Tit  T2) 

CALL  FDY  (l.Ot  0.0.  Tit  T?.  Al.  A2) 

SECTION  120-124  calculates  VALUE  A.  STORED  IN  LOCS.  A1.A2 
CALL  FuY  (ARlt  AR2t  Alt  A2t  Tit  T2) 

CALL  FSd  (1.0.  0.0.  Tl.  T2t  COIYI.  CON2) 

IF  (All  133.  131.  137 

OUANTITY  A  =  0  INDICATES  PARABOLIC  ORBIT.  SET  A  =  -.lE-8  AND 
USE  EQUATIONS  FOR  HYPERBOl IC  ORBIT. 

Al  =  -1.0  E-8 
ERASE  A2 

CALL  FI.1PS(A1.A2.-1.0.A1.A2) 

SET  A  =  ABSF(A)  for  COMPUTING  EASE  IN  THIS  SUBROUTINE 

H  =  1 

OUANTITY  A  NtGATIvE  INDICATES  HYPERBOLIC  ORBIT  -  SET  M  =  1 
oO  TO  138 

QUANTITY  A  POSITIVE  INDICATES  ELLIPTIC  ORBIT  -  SET  M  =  2 

«  =  2 

CALL  Fi.|P(Cl.C2.Al.A2.Sl.S2) 

CALL  SQ  (RR1.RR2.TT  1.TT2) 

CA-L  FD''  (TT1.TT2.S1.S2.T1.T2I 

CALL  DPSQRT(S1.S2.S1.S2I 

CALL  FDY  (RRl.RR2.Sl.S2tSVl.SV2) 

CALL  CUBE(A1.A2.SAV1.SAV2I 

EXTRA  CALCULAT lOItS  TO  OBTAIN  MAXIMUM  ACCURACY 


145  CALL  SO  (CONI.  CON2.  TTlt  rT2l 

146  GO  TO  ( 147.  1501 .  M 

147  CALL  FSo  (TTl.  TT2.  Tl.  12.  £501.  ES02) 

148  GO  TO  151 

150  CALL  fad  (TTl.  TT2.  Tl.  T2 .  ESQl .  ES02) 

151  CALL  DPSORT  (ESDI.  ES02.  Edit  E(2)) 

C  E  CALCULATED  IN  SECTION  143-151 

153  IF  (EID)  900.910.154 

C  E  =  0  INDICATES  CIRCULAR  ORBIT  -  ERROR  RETURN  -  NERR  =  3 

154  CALL  FDY  ( SVl .  SV2 .  Edit  E(2I.  Tl,  T2) 

155  CALL  FDY  (CONI.  C0N2.  Ed).  E(2).  TTl.  TT2) 

156  GO  TO  ( 160.  180)  .  M 

C  SECTION  160  -  172  USED  WHEN  A  IS  NEG.,  M.=  l.  HYPERBOLIC  ORBIT 

160  CALL  fad  (Tl.  T2.  TTl.  TT2.  Tl,  T2) 

161  CALL  OPLOG  (Tl,  T2,  FJl,  FJ2.  1) 

C  SECTION  160-161  CALCULATES  Fj  IN  LOCS.  FJ1,FJ2 

162  GO  TO  ( 163.  900) ,  I 

163  CALL  OPSINH  (FJl,  FJ2,  SFJl,  SFJ2.  II 
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164  GO  TO  (  165.  900 1  .  t 

165  CALL  FMP  lE!i,.  Eiti.  bPJl.  6PJ2.  Tl.  T2 I 

166  CALL  FS8  (Tl.  T2.  F J1 .  FJ2.  XMJ(l).  XMJ(2I) 

h  SUa  J  COMPUTED  U;  SECTION  1 62- 166 . STOR ED  XMJ(2) 

167  CALL  FseS  (ESOl.  ESQ2.  1.0.  Tl.  T2I 

168  CAi  I  nP<;naT  <  Tl T2  ;CCCN  (  1 !  .CCCN  (  Z  i  i 

ERROR  return  -  NERR  =  4  -  IF  E  SOJARED  MINUS  1  IS  NEGATIVE 

170  CALL  FOY  !-l  .O.O.O-.CCONI  1  )  .CCON(2  I  .CONI  ,C0N2  ! 

171  CALL  DPCOSH  ( Fj 1 .  FJ2.  CFJl.  CFJ2.  I) 

172  GO  rj  (  2Q0.  9001  .  I 

SECTION  130  -  195  USED  WHEN  A  IS  POSITIVE.  M=  2. ELLIPTIC  ORBIT 
IBO  IF  (Tl)  161.194.184 

181  IF  (TTl)  182. 163.183 

162  NOP  =  3 

GO  TO  187 

183  NUP  =4 
GO  TO  187 

184  IF  (TTl)  185.186.166 

185  NOP  =  2 
(SO  TO  167 

186  NOP  =  1 

187  IF  (ABSF(Tl)  -ABSFITTlIt  188.189.189 

188  CALL  SO  (TT1.TT2.TT1.TT2) 

CALL  FSb  ( 1.0.0.  .TTl. TT2. TTl  .TT2) 

CALL  DPSORT  ( T T 1 . T T 2 . T 1 . T2 ) 

C  ERROR  RETURN  NERR  =  6  IF  UNABLE  TO  CALC.  COS  EJ  OR  SIN  EJ 

189  CALL  OPASIN  ( T 1 . T 2 . FJl .F J2 . I ) 

IF  (I)  920.920.1890 

1890  GO  TO  (1899.1892.1893.1893).  NOP 

1892  CALL  FSB  ( P I ( 1 ) . P I ( 2 ) .FJ 1 . FJ2 . F J1 . F J2 ) 

GO  TO  1899 

1893  XNUM  =  FJl  /  A6SF(FJ1) 

1694  CALL  F,iPS(FJl  .FJ2  .XNUM. FJl  .FJ2) 

1895  GO  TO  (1899.1899.1896.1397).  NOP 

1896  CALL  FAD  (PI(1).  PI(2).  FJ 1 . F J2 . F J1 . F J2 ) 

GO  TO  1899 

1697  CALL  FSB  ( P 1 2 ( I ) . P I  2 ( 2 ) .FJ 1 . FJ2 .F J1 . F J2 ) 

1899  CALL  DPSC, (FJl. FJ2.SFJ1.SFJ2. CFJl. CFJ2.1) 

190  CALL  FMP  (Ed).  E(2).  SFJl.  SFJ2.  Tl.  T2  ) 

191  CALL  FSB  (FJl.  FJ2.  Tl.  T2.  XMJ(l).  XMJ(2)) 

C  SECTION  186-191  COMPUTES  M  SUB  J  -STORED  IN  LOCS.  XMJ(2) 

192  CALL  FSB  (1.0.  0.0.  ESQl.  ES02.  Tl.  T2) 
section  192-195  FORELLIPTIC  CASE  PARALLELS  SECTION  167-171 
FOR  HYPERBOLIC  CASE 

193  CALL  DPSORT  ( T 1 . T2 .CCON ( 1 ) .CCON ( 2 ) ) 

195  CALL  FDY  ( 1 .0 . 0.0 .CCON ( 1 ) .CCON( 2 ) .  CON1.CON2) 

C  SECTION  200  USED  FOR  BOTH  TYPES  OF  ORBITS 

200  CALL  FDY  (CFJl.  CFJ2.  ARl.  AR2.  ES01.ES(22) 

201  CALL  FDY  (A1.A2.C1.C2.T1.T2) 

CALL  DPSORT  ( T 1  . T2 . T 1 . T 2 ) 

202  CALL  FMP  (Tl.  T2.  SFJl.  SFJ2.  RRl.  RR2) 

203  CALL  FDY  (SFJl.  SFJ2.  ARl.  AR2.  SVl.  SV2 ) 

204  CALL  FSB  (CFJl.  CFJ2.  Ed).  E(2).  TTl.  TT2) 


205  CALL  FMP  (TTl.  TT2.  Tl.  T2.  SOI.  SC2) 

206  GO  TO  1207.  210).  M 

207  CALL  FMPSl SVl .SV2  .-i .0 .SVl .SV2 ) 

206  CALL  Fi*iPSlAl*A2.“1.0.Al.A2) 

CHANGE  SIGN  OF  A  TO  MINUS  AGAIN 

section  210-21fi  CALCULATES  3  COMPONENTS  OF  VECTOR  P  FOR 
doth  types  of  0R6ITS 

210  CALL  FMP  (Xll).  X(2).  ESOl.  cS02 .  TTl.  TT2) 

211  CALL  FMP  (XOOTlll.  X0OT(2!.  RRl.  RR2.  Tl.  T21 

217  CALL  FSH  IfTl-.  TTl.  Tl,  T2  .  PX  ( 1 )  ,  PXI2)) 

213  CAlL  Fi-'.P  (Yll),  Y(2).  ESOl.  ESQ2 ,  TTl,  TT2) 

214  CALL  FMP.  (YOJTll!.  YDUT(2).  RRl,  .RR2,  Tl  ,  T2) 

215  CALL  FSc  ITTl,  iT2.  11.  T2 .  PY(l),  PY 1 2 ) ) 

216  CALL  FMP,  IZll).  2(21.  ESOl.  ES02.  TTl,  TT2: 

217  CALL  Fi-iP  (2D0T(1).  200T(2).'  RRl.  RR2.  Tl,  T2) 

2ia  CALL  FSd  (TTi,  rT2.  Tl,  T2.  P2(l).  PZ12)) 

SECTION  220-242  CALCULATES  3  COMPONENTS  OF  VECTOR  0  FOR 
doth  types  OF  ORUlTS 

220  CALL  FMP  (Xll),  X(2).  SVl.  SV2 .  Tl,  T2) 

221  CALL  FMP  (XDOTll).  XD0T(2).  SOI.  SD2 ,  TTl.  TT2) 

222  CALL  fad  (Ti.  T2.  TTl,  TT2.  QX(1),  OX ( 2 ) ) 

223  CALL  FMP  (Y(l),  Y(2),  sVl.  SV2 .  Tl,  T2) 

224  CALL  FMP  (YOOT(l).  YD0T(2),  SOI,  SD2.  TTl,  TT2) 

225  CALL  FAO  (Tl,  T2,  TTl.  TT2,  DY(1),  DY(2)) 

226  CALL  FMP  (2(1),  212),  SVl,  SV2 ,  Tl,  T2) 

227  CALL  FMP  ( 2DuT ( 1 )  ,  2D0T(2),  SOI,  SD2,  TTl,  TT2) 

22b  CALL  FAO  (Tl,  T2,  Tfl,  TT2,  02(1),  02(2)) 

240  CALL  FpiP  (OX(l),  0x12),  CONI,  C0N2,  DX(1),  OX  t  2  )  ) 

241  CALL  FrtP  (0Y(1),  DY(2),  CONI,  C0N2 .  DY(l),  QYl2)) 

242  CALL  FMP  (02(1),  02(2),  CONI,  C0N2 ,  02(1),  02(2)) 

245  CALL  FDY  ( C  1 , C2 , S AV 1 ,SAV2 . T 1 . T 2 ) 

246  CALL  DPSORT  ( T 1  ,  T 2 , XN ( 1 ) , XN ( 2 ) ) 

250  RETURN 

900  STOP  77777 

910  STOP  77777 

920  STOP  77777 

END  (  1 , 1 ,0 ,0 ,0,0) 

POSITION  3Y  MARY  ELLEN 

SUdRDUIINE  POSN 

EOU  I  VALENCE  I  rt -I  (  1  )  ,  X  In )  .  (  (  2  )  ,  Y  I H  )  ,  (  WM  (  3  )  ,  2  IM  )  ,  (  WM  (  4 )  ,  X I  DM  )  , 

1  (  Wp.  (  6  )  ,  2 1  UM  )  ,  (  WM  (  5  )  ,  Y  I  DM  )  ,  (  WL  (  1  )  ,  X I  L  )  ,  (  WL  (  2  )  ,  Y  I  L  )  ,  (  WL  (  3  )  ,  2 1  L  )  . 

2  ( WL (4) ,XIDL ) , ( WL( 5) , YIDL) , (WL(6 ) ,2IDL ) 

UAC  IX(9,67),IY(9,67),I2(9.67),TL(67) ,RK.M(4,6 ) .RRL ( 4,6 ) ,NB(9 ) , 

1  V,T(9)  ,RAD(9)  ,  DUMMY(27)  ,  0 1 S  ( 9  )  ,  01  ST  (  9 )  ,  PM  (  6  )  ,P  L  ( 6  )  ,PPM(  6  )  , 

2  PPL  (6  )  ,Dp.(6  )  .DL  (6  )  ,Wn(6  )  ,WL(6)  ,XX(9)  ,  YY  (  9  )  ,22  (  9)  ,T  I  (6  )  ,CL  (6  ) 

COl-uMON  NEWDRG,2ER,FhX,FLX,FMY,FLY,FM2,FL2,AM,AL,6M,BL,CM,CL 
COMMON  norg,ntarg.nsun,n,nn,nnn,t,td,tmax,dtmax,hafdt,wte,wtv,mgm, 

1  XTARG,YTARG,2TARG,SCEN,VCEN,SMAX,GMAX,EMAX,RAD1 ,RA02,RADE,WTA, 

2  NdE.NBT ,NdS,RADDRG,SAM,SBM,SCM,  SAL . SBL , SCL .X I M, X I L , Y I M , Y I L , 21 M , 

3  2IL ,XIDM,XIDL,Y IDM.YIDL.ZIOIM.ZIOL.RM.RL.RR.RO ,SS,RRM,RRL,TEM,TEL, 

4  GMX.GLX ,GMY ,GLY ,G)n2 ,GL2 , SUMX , SULX .SUM Y ,SULY ,SUM2 , SUL2 , FM , FL , GM , GL , 

5  HI4,HL,RRR,SSS,Xh,YM,2.M,A,BX,8Y,B2,WRM,WRL.RCM,RCL,RDM,R0L,RPPM, 

6  XPh.XPL  ,YPM,YPL,2PI-,,2PL, 
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7  JCOB.  vwi.nSDT  tMSDT  .MOT  .NOT  .  MET  .  NOL'T  .NC<E .  TSAV .  OTA .  DTb .  DTC .  EPl 
OAC  XK.Su(i'l  .  XMI  (21 

..AC  X(  2  I .V (2 1 .2(24 .XDOT(2 ! . YOOT ( 2 ) . ZOO  I ( 2 1 .PX ( 2 ) .PY ( 2  1  .PZ ( 2 1  .OX ( 2 ) 

1  .OY ( 2  I  .02 ( 2 1  .XP( 2 1 . YP (21 .2P( 21  .XDOTP ( 2 1 . YDOTP (21«2DOrP(21.PI(21. 

2  PI2(21.E(2I. XH J (21. CCON ( 2 1 . XN ( 2  1 

A1»A2»‘  Ji«rj  2.srji.Gr j2.CFj:.crj2.si .oZ.epsi 
CONMOli  OTME.DT.RPM 
CAC  S'Hol  .SL(61  .XivtJP(2,' 

CUh,-n.U  Ob.  .TSAVE  .PlEA.PTA.RSN.HP  I  .THP  I  .AX.NOSW 
■sO  CAUL  F.-iP  (  A1  .A2  .  C(;ON(  1 1  .CC0N(2  1  .TC1.TC2  1 

91  IF  i.,i;  9.,900.9‘7 

92  CALL  Fl-.Pb(TCl.rC2,-1.0.ICl.TC21 

C  QUANTITY  A  NEGATIVE  INCICATUS  HYPERMUIC  OR&iT  -  SET  M=1 

9  2  ‘-1 "  i 

9A  GO  TO  102 

C  QUANTITY  A  POSIT. Vt  INDICATES  ELLIPTIC  ORBIT  -  SET  M  =  2 

99  M  =  2 

102  CALL  FMPS(XN(1 1 .XN(21 .DT.SD1.S02) 

103  CALL  Fad  ( XMJ( 1  I .XMJ ( 2 ) .SOI.SDZ.XMJPI 1 ) . XMJP( 2 1 ) 

-  10«  EJl  =  FJl 

:0S  EJ2  =  FJ2 

L  USE  VALUE  £J  OR  Fj  AT  T=.  p  FOR  FIRST  f.uFSS  AT  T=  TJ  tDELTA  T 

106  SEJl  ‘  SFjl 

107  3EJ2  =  SFJ2 

108  CEJl  =  CFJl 

109  CEJ2  =  CFJ2 

C  SECTION  110  -  160  DOES  NEWTON-RAPHSON  ITERATION  FOR  E(J+1I 

110  DO  160  X  =  1.  99 

111  GO  TO  ( 120.1121  .M 

112  CALL  FMP  (E(ll .E(21.SEJl.SEj; .T1.T21 

113  CALL  FSti  (EJ1.EJ2.T1.T2.T1.T21 

114  CALL  FMP  (£(11 .E(21  .CEJ1.CEJ2.TT1.TI21 

115  CALL  FSd  ( 1 .0 .0.0  .TTl  .TT2  .  ITl .  TT2  1 

116  GO  TO  130 

C  ScCTION  112-116  initializes  DELTA  F  CALC.  FOR  ELLIPTIC  CASE 

120  CALL  FnP  ( E ( 1 1 . E ( 2 1 .SEJ 1 . 5EJ2 . T 1 . T2 1 

121  CALL  FSb  (T1.T2.EJ1.EJ2.T1.T21 

122  CALL  FNP  (E ( 1 1 .E(2 1 .CEJl .CEJ2.TT1 .TT2 1 

123  CALL  FSBS  ( TT 1 . TT2 . 1 . 0  .  T T 1 .  T T2 1 

C  SECTION  120-123  INITIALIZES  DELTA  F  CALC.  FOR  HYPERBOLIC  CASE 

130  call  FSB  (XMJP  (  1  1  .X.'iJP(2  1  .T1  .T2  .XNJl  .XNJ2  ! 

131  C,ALU  FDY  ( XN  J 1  .XNJ2  . TTl .  TT2  .DEJ 1  .OEJ2  1 
"  132  IF  (  AL.SF  (  DejI  1-cPSl  1  170. '170.  140 

140  CALL  FAD  ( EJ 1 .EJ2 .OEJl .DEJ2 .EJl .EJ2 1 
C  REPLACE  old  guess  WITH  NEW  ONE 

148  GO  TO  ( ISb. 150 1 .H 

150  CALL  DPSC  (  £J1  .£,J2  .StJl  .SEJ2  .CEJl  .CEJ2 . 1 1 

151  GO  TO  160 

155  CALL  DPSINH  ( E J 1 . EJ2 . SEJ 1 .SE J2 . I  1 

156  GO  TO  ( 157.900  1  .  I 

157  CALL  DPC05H  (EJl.EJ2.CEJl.CEJ2.il 

158  GO  TO  (  160.900 1  .  I 
160  CONTINUE 
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V. 

161 

C 

C 

170 

171 

172 
i  /  J 
17** 
17b 
17b 

177 

178 
i7v 
IbO 

10  X 
182 

183 

184 
Icb 

186 

l67 

188 

200 

201 

202 

C 

204 

205 

206 
207 

C 

210 

211 

212 

11  J 
<;i4 
21b 

C 

C 

220 

221 

222 

223 

224 

225 

226 
22  7 
228 


IjIVc  (NcwTuil-RAPHSOii  CHkHCES  TO  COjiVtROL 
uO  70  900 

WAno  all  sorts  oF  TtSTS  OM  SKi.CoS  tJ  TO  OETERi-illlE  FINAL  VALUE 
EJ  aT  T  +  L'cLTA  T  -  SECTION  171-193  FOR  ELLIPTIC  CASE 
oO  TO  (  200  *  1  7 1 )  t  i'i 
IF  ( SE J 1 )  17otl76*17^ 

IF  (CEJi)  176.176.17j 
AriHA  =  nr  I 
ERmoE  Xrtli. 
uu  To  18 j 

Xi-iAX  =  PI 
XnIN  =  riPI 
00  TO  18j 

IF  (CEJll  179.179.18. 

XNAX  =  ThPI 
Xi'i  IN  -  PI 
GO  TO  18j 
XnAX  =  .P  I  ^  I  1  I 
XrilN  =  THPI 

IF  (EOl  -XMAX)  184.200.185 

IF  (EJl  -XI-iINI  186.200.200 

CALL  F3o( cJl .EJ2 .PI  2 ( 1  I . P I  2 ( 2 J . £ J 1  . £J2 I 

00  TO  187 

CALL  FAD  (£J1 .£J2 .PI 2( 1  I .PI2 (2 ! .EJ1.FJ2 I 

IF  (EJl  -XHAXI  188.110.185 

IF  (EJl  -XMlNI  ISb.'llC.ilO 

CALL  FSo  (CEJl.C£J2.Ei II .E(2( .T1.T2! 

CALL  FHP  ( T I .T2 . A1 .A2.XW1 .Xa21 
Call  Fi’'iP(TCl.TC2.  SEJ 1 .  (jEJ  2.YWl.Ywi2) 

Section  200-202  coi-ipoteo  xa  ai.u  yw  at  j+i 
CALL  so  (Xwi.XW2.Tl.T2l 
CALL  SO  ( Y«1  .Yw2 . TTI .TT2 I 
CALL  FAD  (T1.T2.TT1.TT2.T1.T21 
call  DPSQRT  (T1.T2.AR1.AR2I 

section  210-215  COriPUTES  Xw  DOT,  YW  DOT  AT  J  +  1 
CALL  FMP  ( si ,S2 , SEJ 1 ,SEJ2 , T1 , T2 ! 

CALL  FDY  ( T1 ,T2 ,AR1 ,AR2,XWD1 ,XWD2 I 
CALL  FMPS  ( XWOi ,XWD2,-1.0.XWD1 ,XW02) 

Call  FnP ( Sl , S2 ,CCON ( 1  I ,CCON(2! .Tl  .72  I 
CAlL  FriP  (  T 1  .  T  A  .  C c. J  1 .  Cc J 2  .  T  1 .  T2  I 
CALL  FOY  ( Tl ,T2 ,AR1 ,AR2 ,YWD1 .YWD2 I 

ScCTIun  220-2J8  LOi-iPUTES  jConPui.ci'i TS  OF  VtCTORS  R.ROOT  AT 
T  =  T  +OELTA  T  IJ+ll 
CALL  FnP  (XWl ,Xw2  ,PX( 1 1 ,PX(2 I .Tl .T2I 
Call  Fr.P  (YWi.Yw2.OAlij.wXi2l.TTl.TT2) 

CALL  FAD  ( Tl  ,T2.TT1 ,TT2 .XP ( 1  I  ,XP ( 2) I 
call  F(-iP  (XW1,XW2,PY(  1  1  ,PY(2I  ,T1.T2) 

CALL  Fi-iP  (  YWl  ,  YW2  ,QY(  1  I  ,QY  (  2  I  ,TT1  ,TT2  1 
CALL  FAD  ( Tl ,T2,TT1 ,TT2.YP( 1 1 ,YP( 2)  I 
call  FWP  (XWl  ,XW2  ,P7.  ( 1  1  ,P7.  (  2  1  .Tl  ,T2! 

CALL  FrtP  lYWl, YW2, 02(1 )  ,02(2)  .TTl,Tr2l 
CALL  F«D  ( Tl ,T2 ,TT1 ,TT2,ZP ( 1 1 ,2P(2) I 
CALL  SO  (XP ( 1 1 ,XP (2 1 .AM.AL) 


'! 

**  l 

I 
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« 

a. 

1 


4 

y 

'4 

$ 

1 

4 


I 


t 
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diQ 

2Zl 

231 

233 

234 

235 
lit 
lil 
lit 
243 


900 


H 

H 

H 

M 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 


'•’ot,: 


CmLL  so  (YPli  }  .YP{2)  .a.-.*oL) 

CALL  oO  tZPt  1  )  .2P(2  )  .G-i.Cw) 
call  Fmu  (  am  ♦  mL  •  diM  » oL* f^Cn *RCL) 

CaLl  Fau  (  Cfi  *  Cl  •  KCfi  tRCL  *  fiP.'i  *RPl  ) 
CALL  DPSLK'iT  (  KPm » kPL  •kCm *RCL  ) 

Call  F riP  (  KCft  »RCL  t kPci •RPl *RCfi  * RCL  ) 
Call  FuY  (Xr»i  •2£R*RCM*RCL*KWi*'i*KWL  i 


■4'^ 


% 


CAl-l-  F„u 
CAi-U  FriP 


12 


CALL  FhP  (  YP  (  1  )  .YP  (  21  .RWM.RVkL.YPM,  YPL) 

CAi-L  F.-iP  (  ZP  (  1  1  .ZP  (  2)  .RW.-i,KWL.ZP«.ZPL  I 
IF  l\/i\Zl  A  0*24  3  *2^0 

Call  FnP  (  Xwui  •Xwu2  •Px  1 1, 1  »PA  (  2  )  >  T  1  •  T2  ) 

Call  Fi-iP  (YWul.YWu2.Oxil  1  .QA(2).TT1.TT2) 

(Tl.T2.TTl.TT2.XC)OTP(i  1  .XUjTP  (21) 
(XWul.XWi;2.PY(  1).PY(2I.T1.T2) 

CALL  Fi-iP  (  YWUl .  YW02.0Y(  1  1  .QY(2  1  .TTl.  T  T2  ) 

CALL  Fad  (T1.T2.TT1.TT2.YD0TP(1. .Y00TP(2) 1 

CALL  Fl-'.P  (  XWUl  .XWD2  .PZ(  i  )  .PZ  (  2  1  .T  1  .T2  1 

CALL  FHP  ( YWDl .YW02.QZ(. 1 .QZ(2 I .TTl. TT2 1 

CALL  FAD  (Tl.T2.TTl.TT2.ZDOrP(l).ZOUTP(2) 1 

FJl  =  L.'l 

Fj2  =  €J2 

KETuKN 

5TOP  77777 

tl'CJ  (l.l.O.O.O.C) 

iUoRUUTlUc  IiYTi't 

Call  FriPS  (XlUM.XIDL.DT  .Rfvi«i(  1  .  1 1  .RXL  (  1  . 1  1  ) 
call  FMPS  (YI  dm  .  Y  i  ul  .DT  .  RKi'i  (  1.21  .  RXL  (1.21  1 
CALL  FI-IPS-  (ZID(-i.ZIDL,DT.RICh(  1.3)  .RICL(  1.3)  1 
SAH  =  PH  ( 1 ) 

SAL  =  PL  (11 
Son  ~  PM  (  2 ) 

SBL  =  PL  (21 
SCM  =  PM  (31 
SCL  =  PL  (31 
CALL  ACCN 

CALL  FriPS  (FHX.FLX.DT  .RnmI  1 .4)*.RAL(  1 .4)  ) 
call  FriPS  (FriY.FLY  .DT.RNri(  1  .5)  .RICL(  1 .5  )  ) 
CALL  FriPS  (FriZ.FLZ  .UT  .RKri(  1  .6)  .RICL(  1 .6  )  ) 
CAL  RKM-12 
SUo  MGH 
SLW  FM 
CAL  RaL-12 
SUb  MGH 
SLW  FL 
CAL  RAM-16 
SUo  l^GM 
SLW  GM 
CAL  RAL-16 
SUb  MGH 
SLW  GL 
CAL  RAM-20 
SUb  MGM 
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J 


H 

5LM 

Mn 

H 

CAL 

kr^L~^0 

H 

iua 

MGM 

H 

SLw 

ML 

I't 

CALL 

Fad  1 X 1  dm  *  X I dl  t  fm  *  fl  * aw • al) 

CALL 

F  M  u  (  Y  I  uM  t  Y  1 D  L  *  Gi'i  •  u  L  *  on  •  o  L  ) 

CALL 

Fad  ( 1  uM * z  1  uL  tHi'i tML » Ci’i tCL ) 

CALL 

F  ri  P  S  (  An  t  AL  •  u  T  •  P  kM  (2tl)  tKr*L(2>lJ  ) 

CALL 

Fi'iP  S  (  oi*t  *  oL  *  u  T  t  (2t2)  tRKLtZ*^^}  1 

Call 

S  (  Cfi  *  k-L  *  D  T  •  Rki’i  I2t>3)  *Rkl{2*J)  ) 

ri 

cal 

•<  f'wM 

n 

SOci 

Wo»M 

n 

SLlr. 

Fn 

H 

CmL 

R  AL 

H 

80o 

mGH 

n 

aLn 

fl 

H 

CAL 

RKW-4 

H 

OL'O 

I’iGM 

n 

aLR 

VJ!*' 

n 

CmL 

RnL—4 

n 

acro 

I'iGn 

H 

aLw 

OL 

H 

CmL 

R  AH“8 

H 

SUb 

••lOiV 

H 

SLR 

HM 

H 

CAL 

RXL-S 

H 

SUd 

MGM 

H 

SLW 

riL 

i8  _ 

DTi-.E 

s  DIME  +  HAFUT 

r  =  T  +  HmFDT 

CALL 

TtRP 

CALL 

POSm 

20 

Call 

FnU  IXlM,XIL.XP(il.XP(2| .XAM.XAL) 

CALL 

Fad  ( y  ii-i.Y il.yp ( 1 ) . yp(2 I  .yam.yal :• 

CALL 

FAD  (ZIFl.ZlLtZPdl  jZP(2I.ZAM.ZAL) 

CALL 

FAD  (XAK.XALtFM.FL.SAM.SAL) 

CALL 

Fad  (yam.yal.gh.gl.sbm.sbli 

CALL 

fad  (ZAM.ZALiHM.HL.SCH.SCLI 

CALL 

ACCN 

CALL 

F«PS  (FliX.FLX.DT.RAFUZ.AI  ,RICL(Z.4)  ) 

CALL 

FmPS  (FiMY.FLY.DT.RICrt(2.5l  .RAL(2.5)  ) 

call 

FMPS  (FnZ.FLZ.DT,RAHt2.6)  .RICL12.6)  ) 

M 

vML 

RmM-I J 

H 

aLL 

.AGiS 

H 

aLW 

FM 

H 

CmL 

RAL-i3 

H 

SUd 

MGH 

H 

SLW 

FL 

H 

CAL 

RlcM-17 

H 

SUB 

MGM 

H 

SLW 

GM. 

H 

CAL 

RAL-i7 

H 

aUo 

MGH 
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r  X  r 


H 

H 

H 


H 

h 

h 

H 

•1 

H 


H 

H 

H 

H 

H 

H 

(H 

H 

H 


24 


26 


36 


40 


SLW  oL 
Cal 
6ud  r'l'jri 
SLW  MM 
CAL  RkL-2i 
l  J  r'  M  ri  f»I 
3  L  w  h  L 

CALL  FAO  I  X  I UM * X  I UL • FM » F L * AM  I A L i 
Call  fau  (yi lm » y i u l > oi'i » o l  t di’S •  d l j 

CALL  FAU  (  Z  I  t»n  *  Z  i  l/L  »  HM  »  H»_  ♦  Cm  t C*- ) 

Call  FrirS  (Ai']*AL*LTiRKM(3*l.)*Ri'. L(3*l)) 
CALL  FmP5  1  aM.caLtuT  *RkMI  3.2)  .RkL(  3*2  )  ) 
CALL  FmP3  (  C.-t  .cl  .OT  .Rk.m)  3*3)  »R?;L!  3»3  J  I 
CAL  RAM-i 


■  ^-'rr. 

.A  , 


LLO 

SLw  FH 
CmU  Rk.L-1 
SUD  MGM 
■SLW  FU 
CAL  RKM-5 
bua  mGM 

SL*  GM 

cal  RAL-A 

SUo  MGM 
GLW  GL 
‘^aL  Ram— 9 


SUO  MGM 
SLW  rlM 
C.AL  RILL-9 


SUD  nGt'i 
SLW  HL 

CALL  FAO  (XAn.XAL.FMtFL.SAH.SAL) 

CALL  FAO  ( YAM.YAL.GM.GL.S6M.SbL) 

CALL  FAO  (ZAn.ZAL.HM.HL.5CH.SCL) 

CALL  ACCN 

CALL  FhPS  ( FMX . FLX . OT . RkM ( 3. 4) .RXL ( 3 . a ) ) 

CALL  FmPS  (FmY.FLY.OT.RkmO.S)  .RXL(3.5)  ) 

CALL  FnPS  (FhZ.FLZ.OT.HKn(3.6) .RXL(3.S) ) 

Call  FAO  (Xlui-i.XlOL.RXM(3.4)  .RaL(3.4)  .AM.AI,) 
CALL  FAO  (YlUM.YlOL.R)vM(J.5) .RAL(3.S) .dM.BL) 
CALL  FAO  ( ZluM.ZlOL.RwX) 3.6) .RaL( 3.6 ) .CM.CL) 
CALL  FiwPS  (  An.AL  .DT  .RXM(4.1 )  .RAL(4. 1  )  ) 

CALL  FMPS  ( bM.bL.DT .RXM(4.2) .R<L( 4,2 ) ) 

CALL  FMPS  (CM.CL.OT .RaM(4,3) ,RXL(4.3) ) 

OTME  =  OTHE  +  HAFOT 
T  =  T  4-  hAFOT 


Call  TERP 


VNZ  =  1. 
call  POoN 
CALL  FAO 
CALL  FAO 
CALL  FAD 
CALL  FAO 


(XUw,X1L.KaM( 3.1 ) .RXL( 3. 1) .AH. AL) 
(Yin.YIL.RKMii.Z) .KXL i3.2i .On.bL) 
(ZIi-i.ZlL.KAH(  3.3)  .RXL(  3.3)  .CM. CL) 
(aM.AL.XP(1).XP(2) .SAH.SAL) 
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44 


46 

48 


50 


1 


i 

4 

5 

6 
7 


70 

71 


72 


73 


CALL  FAO  (OMtdL  .YP  (  1  1  .YP  (  2)  .s3l-i.SoL) 

CALL  FAO  (Crt.CL.2P( II .2P(2).SCM.SCL) 

CALL  ACCN 
ERA6E  ViYZ 

CALL  Fi-iPS  (  FinX  •  FlX  •  l)T  •  Rt'.ri  (4*41  •Rl4L»4»4)  I 
CALL  '*  :*;?E  ;  Fi  I V  «  r L 'i'  •  7  •  kfvii  t  4  •  6  I  •  KkL  I  4  »  5  )  I 
Call  FiiPS  (FnZtFLZtOTtRKi'ilA^bl  •RkL(4*6)  I 
DO  52  NA  =  ii6 
Surt  R  KI1  (  1  •  i4A  ) 
jw  L  ■■=  R  n-L  (  i  •  IS  A  1 
6E;*:  “  K.Ki‘1  (  2  •  is  A  1 
SEL  =  RkLiZsIsAs) 

6FH  =  R  Ki*i  (  3  *uA  I 
SFL  =  RK.LI  AiNAI 
6Gi'i  =  HM-ii4fNA) 
oOL  =  RAL(4.NAI 

CALL  Fad  (SEM.SEL.SFM.CFL.SEH.SEL) 

CALL  FaO  (  SEi'l  •  SEL  1 6 Em  •  SLL  *  SEM  •  S  El  I 
CALL  fad  (SDM.SDL.SEH.SEL.SEM.SEL) 

Call  I“A0  (  Sui'i  *  sol  f  SEM  •  ScL  f  SEM  •  s  El  I 
Call  FliY6  (  6cM  >  SEL  s6 .0  •6£M«SEL  1 
SFM  =  WHdsAl 
SFL  =  oLK'iAl 

CALL  FaD  (  SFrctSFL  sSEMsSEL  *SFi-l*SrL  I 
'kM(NA)  =  SFM 
WL  i  fsA  I  =  6FL 
RETL'RM 

END  ( 1 . 1  sO sO.OsO J 

SUBROUTINE  ACCN 

CALL  SO  (SAMtSAL.AM.AL) 

CALL  SO  ( SbM . S dL *  BN . 3L I 
call  so  ( iCM .SCl »CH»CL ) 

CALL  Fau  (  an  »  AL  f  bM  »  oL  *Ki'i  *KL  I 
Call  FaU  (  RM.  HL  .  Cii  »Cl»KU  .  RL  I 
call  uPSokT  (RO.RL.RR.SS) 
call  FnP  (RR.SS.RU.RL.RRn.RRL) 

CALL  FDY  (WTS.ZER.RRM.RRL.TEH.TEL) 

CAI.L  FNP  (  SAM  .  SAL  .  T  EM .  TEL  .GMX  .GLX  ) 
CALL  FMP  (  SBM  .SBL  .  T EM . TEL .GMY ,GLY > 
CALL  FMP  (  SCM  .  SCL  . T EM, TEL .GMZ .GLZ ) 
CALL  FSB  (GHX.GLX.XPM.XPL.GMX.GLX) 

CALL  FSB  (GNY.GLY.YPM.YPL.GMY.GLY) 
call  FSb  (GMZ,GLZ.ZPM,ZPL,GMZ,GLZ) 

IF  (AOdI  71,8,71 

CALL  FMP  (RU,Rl,RRp.,RRL.T1  (1)  ,T1  (2)  ) 

CALL  FMPS  (Cm. Cl, 5.0, ten, TEL) 

CALL  FDY  ( T£M,TEL,R0,RL,TEM,TEL) 

CALL  FSBS  (  Tc.M,TEL,1.0,T£M,TEL) 

CALL  FDY  (TEM,TEL  ,TI ( 1) ,TI  (2) ,TEM,TEL) 
CALL  FMPS(TEH,TEL,06J.TEM,TEL) 

CALL  FMP  (TEH, TEL, SAM, SAL, XM, XL) 

CALL  FMP  (TEM,T£l,S6M,S8L,YM,yL1 
CALL  FDV  ! Z.O.ZER ,T 1 ( 1 ) ,71 (2  I ,ZM,ZL> 
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i  J 

14 

15 

16 
17 


^6 

2Z 

1 3 
29 


j2 


CALL  FriPs  (ZH.ZL.USJ.ZM.ZL) 

CALL  FSo  (  T Ein *  T LL  * ZM  *ZL  » ZM  * ZL ) 
CALL  FFJP  (  ZM  *  ZL  »oCn  »  SC4  »  Zt"i  »  ZL  ) 
Call  FSli  (uHX.GLX.Xii.XL.UhX.CLX) 
CALL  F38  (  GM  Y  *  uL  Y  »  Yi'i  *  YL  * oi'l Y  » GL  Y  ) 
CALL  (  uAtZ  »  uLZ  9  Zi'<  »  ZL  »  oMZ  •  GLZ  ) 


% 

‘-/A 


cRAGt  SUi-.XiSuLXtSGMY  93ULY  9iuMZ  9  GL'LZ 
00  29  J  =  1 9  N 
X.-i  =  X  (J) 

YH  =  Y  (J) 

ZM  =  Z  (J) 

WTA  =  WT  (J) 

CALL  FitiS  (SAM9SAL9XM9XM9XL) 


CALL  FSo-  (SDM9S0L9YH9YM9YLI 
Call  fgdg  (SCM9SCl9ZM9ZM9ZL) 

CALL  30  (Xcl9XL9Ah9AL) 

CALL  aO  (YM9YL9D.'!9bL) 

CALL  SO  (ZH9ZL9CM,CL) 

Call  FaU  ( AM9AL90iA90L9RN9RL) 

CALL  FaO  (RiA9RL9CH9CL9RI49RL) 

CALL'  UPSOHT  iRiA9Ri.9KRR9SSS) 

IF  (V.-iZ)  I61I79I6 
OIS(J)  =  RM 
UIST(J)  =  RRR 

CALL  FriP  (RM9RL9RRR9SSS9RM9RL) 

CALL  FOY  ( XM9XL 9RM9RL9AM9AL) 

CALL  rUY  (  YH  1  YL  9RM  9KL9  bM  9  t)L  ) 

CALL  FUY  ( ZM9ZC9RM9RL9Cn9CL» 

A  =  (X( J)*X( J»+Y(J)«Y(J)+Z(J)*Z( J) )**i.5 

BX  =  X( J)/A 
BY  =  Y(J)/A 
bZ  =  Z(J)/A 

CALL  FAUS  ( AM9AL90X9AM9AL) 

CALL  FADS  (  bi*‘ 9  bL  9  bY  9  bM9  bL  ) 

CALL  FADS  ( Cn 9  CL  9 bZ 9 CH 9CL ) 

CALL  FKPS  (  Ai>;,AL9WTA9AM9AL) 

CALL  FMPS  (bM9C5L9WTA95M9bL» 

CALL  FMPa  (Cn9CL9RTA9CH9CL» 

CALL  FaD  ( ah 9AU9SOMX 9SULX9SOMX9SULX ) 

Call  Fad  lbMioC930nY9SULY9aGHY9SULY) 

Call  Fad  (ch9CL93Ui*iZ9SulZ9SohZ9SulZ) 

CALL  FAD  (GHX9GLX9SOHX93ULX9FHX9FLX) 

CALL  FAD  (GHY,GLY9SUHY9SULY9FHY9FLY) 

CALL  FaD  (GWZ9GLZ9SOHZ9SOLZ9FMZ9FLZ) 

CALL  FHPS  (FHX9FLX9G9FHX9FLX) 

CALL  FHPS  (FriY9FLY9G9FMY9FLY) 

CALL  FHPS  (Fi-;Z9FLZ.G.FHZ9FLZI 
RETURN 

END  ( I9I9O9O9O9OI 
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APPENDIX  B 


OPERATIONAL  DIRECTORIES,  LISTING  AND  CHECK  PROBL*  IS 
FOR  SECTIONS  II,  III  AND  IV 

A.  TWO  POSITION  VECTOR  PROGRAM 
a.  Operational  Directory 
Purpose 

To  find  the  position  and  velocity  vector  of  an  observed  body  at 

tune  T  from  two- range  vectors, 
o 

Usage 

Input  -  All  decimal  input  is  read  by  a  modified  DBC  FORTRAN 
sub-routine  which  accepts  variable  length  fields.  All  fields  are  floating  point 
numbers  except  for  starred  fields  which  are  integers.  Following  is  the  list 
of  input  quantities  in  the  order  in  which  they  are  read  into  the  program.  All 
range  measurements  must  be  converted  to  units  of  earth's  equatorial  radius 
(6378.  388  km.  =  equatorial  radius  of  earth).  All  angles  are  to  be  expressed 
in  degrees  and  decimals  of  a  degree.  Time  is  to  be  in  days  and  decimals 
of  a  day. 


Field 

1  - 

P 

o 

Magnitude  of  range  measurement  at  time,  T 

o 

Field 

2  - 

Magnitude  of  range  measurement  at  time,  T^ 

Field 

3  - 

X  , 
o 

Geocentric,  equatorial  coordinates 

Field 

4  - 

Y  , 
o 

of  observer's  position  on  earth 

Field 

-5  - 

Z  . 
o 

at  time,  T  . 

o 

Field 

6  - 

Xi, 

Geocentric,  equatorial  coordinates 

Field 

7  - 

^1’ 

of  observer's  position  on  earth 
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i 

I 


Field 

8  - 

at  time.  T. 

Field 

9  - 

8 

o 

Declination  of  observed  body  at  time,  T  . 

o 

Field 

10  - 

Declination  of  observed  body  at  time,  T^ 

Field 

11  - 

a 

c 

Right  ascension  of  observed  body  at  time. 

T 

o 

Field 

12  - 

F.ight  ascension  of  observed  body  at  time. 

^1 

Field 

13- 

k 

T  . 
o 

Time 

Field 

14  - 

'^1- 

Time 

Field 

15  - 

time 

Control  parameter,  KO.  If  KO  0,  the  unit  of 

will  be  equal  to  806.  99681  3  sec.  .  If  KO  ^  1 ,  the 

unit  of  time  will  be  58.  132441  days. 

Sample  Input 
Card  1 

F  1.41889,  1.47513.  1.  00082,  .  05063,  .02196* 

Card  2 

F  2.3587,  -.27808,  -.19578,  -9.34,  -  10.51* 

.  Card  3 

F  342.34,  341.465,  11.5,  80.5,  XO* 

Output  -  The  X,  Y,  Z  components  of  the  position  vector  are  printed 

in  units  of  Earth's  equatorial  radius,  kilometers,  and  astronomical  units. 

•  •  • 

The  X,  Y,  Z  components  of  the  velocity  vector  are  printed  in  units  of 
Earth's  equatorial  radius  per  806.996813  sec.,  km.  per  sec.  and  A.  U. 
per  hr.  ,  if  KO  ^O.  If  KO  ^  1,  the  velocity  will  be  printed  out  in  units 
of  Earth's  equatorial  radius  per  58.  132441  days,  km.  per  sec.  and  A.  U. 
per  hr. 


I 
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b.  Two  Position  Vector  Program 


DIMENSION  PM(6),  PL(6),  PZM{6),  PZL(6) 

1  RIT2,  16.  RHO,  RHOI,  XO,  YO,  ZO,  XI.  YI.  ZI.  PHIO.  PHII,  ALPO. 

1  ALPI.  TO,  TI.  KO 

16  FORMAT  (515) 

ERASE  K.  KNT 
NO=  1 

2  GALE  DPSC(PHIO,  O.  .  SPOM,  SPOL,  CPOM,  CPOL,  O) 

CALL  DPSC(PHII,  O.  ,  SPIM,  SPIL,  CPIM.  CPIL,  O) 

CALL  DPSC(ALPO,  O,  SAOM.  SAOL,  CAOM,  CAOL,  O) 

CALL  DPSC(ALPI,  O.  ,  SAIM,  SAIL,  CATM,  CAIL,  O) 

CALL  FMP(CPOM,  CPOL,  CAOM,  CAOL,  CCM,  CCL) 

CALL  FxMPS(CCM,  CCL,  RHO,  CCM.  CCL) 

CALL  FADS(CCM,  CCL,  XO,  PM(1),  PL(1)  ) 

CALL  FMPi'CPOM,  CPOL,  SAOM,  SAOL,  CCM,  CCL) 

CALL  FMPS(CCM,  CCL,  RHO.  CCM,  CCL) 

CALL  FADS(CCM,  CCL,  YO,  PM(2),  PL(2)  ) 

CALL  FMPS(SPOM,  SPOL,  RHO,  CCM,  CCL) 

CALL  FADS(CCM,  CCL,  ZO,  PM(3),  PL(3)  ) 

GALL  FMP(CPIM,  CPIL,  CAIM,  CAIL,  CCM,  CCL) 

CALL  FMPS(CCM,  CCL,  RHOI,  CCM,  CCL) 

CALL  FADS(CCM,  CCL,  XI,  XIM,  XIL) 

CALL  FMP(CPIM,  CPIL,  SAIM,  SAIL,  CCM,  CCL) 

CALL  FMPS(CCM,  CCL,  RHOI,  CCM,  CCL) 

CALL  FADS(CCM,  CCL,  YI,  YIM,  YIL) 

CALL  FMPS(SPIM,  SPIL,  RHOI;  CCM,  CCL)  \ 

CALL  FADS(CCM,  CCL,  ZI,  ZIM,  ZIL) 

3  CALL  SQ(PM(1).  PL{1),  XSQOM,  XSQOL) 

CALLSQ(PM(2),  PL{2),  YSQOM,  YSQOL)  \ 

CALL  SQ(PM(3),  PL(3),  ZSQOM,  ZSQOL)  j 


CALL  FAD{XSQOM,  XSQOL,  YSQOM,  YSQOL,  CCM.CCJ.) 

CALL  FAD{ZSQOM,  ZSQOL,  CCM,  CCL,  R02M,  R02L) 

CALL  DPSQRT{R02M,  R02L,  ROM,  ROL) 

CALL  CUBE(ROM,  ROL.  ROOM,  ROCL) 

CALL  FDY{1.  ,  O.  ,  ROCM,  ROCL.  MUM,  MUL) 

CALL  FSBS(TI,  O.  ,  TO,  CCM,  CCL) 

IF  (KO)  30,  30,  31 

30  TU  =  1.  7072813Lt2 

31  TU=  .  017202098 

32  CALL  FMPS{CCM,  CCL,  TU,  TAUM,  TAUL) 

CALLSQ{TAUM,  TAUL,  TAU2M,  TAU2L) 

CALL  CUBE{TAUM,  TAUL,  TAU3M,  TAU3L) 

CALL  SQ(TAU2M,  TAU2L.  TAU4M.  TAU4L) 

CALL  FMP(TAU2M,  TAU2L,  TAU3M,  TAU3L,  TAU5M,  TAU5L) 
CALL  FMP{MUM,  MUL,  TAU3M,  TAU3L,  MTM,  MTL) 

CALL  FDYS{MTM,  MTL,  6.  ,  GIM,  GIL) 

CALL  FSB{TAUM,  TAUL,  GIM,  GIL,  GIM,  GIL) 

CALL  FMP{MUM,  MUL,  TAU2M,  TAU2L,  FIM,  FIL) 

CALL  FMP3{FIM,  FIL,  .  5,  FIM,  FIL) 

CALL  FSB{1.  .  0.  ,  FIM,  FIL,  FIM,  FIL) 

CALL  FMPS{MTM,  MTL,  .  5,  /  M,  AL) 

CALL  FMP{MUM,  MUL,  TAU4M,  TAU4L,  MCM,  MCL) 

CALL  FDYS{MCM,  MCL,  24.  ,  CM,  CL) 

CALL  FMPS{MCM,  MCL,  .25,  HM,  HL) 

CALL  FMP{MUM,  MUL,  TAU5M,  TAU5L,  MDM,  MDL) 

CALL  FDYS{MDM,  MDL,  -8.  ,  EM,  EL) 

CALL  FDYS{MDM,  MDL,  120.  ,  OM,  OL) 

CALL  FAD{MUM,  MUL,  MUM,  MUL,  DM,  DL) 

CALL  FMPSIDM,  DL,  4.  ,  QM,  QL) 

GM  =  GIM  > 
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GL  =  GIL 
FM  =  FIM 
FL  =  FIL 

4  CALL  FMP(PM(1),  PL(1).  FM,  FL,  CCM,  CCL) 

CALL  FSB(XIM,  XIL,  CCM,  CCL,  CCM,  CCL) 

CALL  FDY(CCM,  CCL,  GM,  GL,  DXOM,  DXOL) 

CALL  FMP(PM(2),  PL(2).  FM,  FL,  CCM,  CCL) 

CALL  FSB(YIM,  YIL,  CCM,  CCL,  CCM,  CCL) 

CALL  FDY(CCM,  CCL,  GM,  GL,  DYOM,  DYOL) 

CALL  FMP(PM(3).  PL(3),  FM,  FL,  CCM,  CCL) 

CALL  FSB(ZIM,  ZIL,  CCM,  CCL,  CCM,  CCL) 

CALL  FDY(CCM,  CCL,  GM,  GL.  DZOM,  DZOL) 

GO  TO  (9.  iO),  NO 

9  NO  =  2 
GO  TO  6 

10  CALL  FSB(DXOM,  DXOL,  DXM,  DXL,  DIXM,  DIXL) 

IF  (ABSF(DIXM)  -4E-8)  11,  11,  5 

11  CALL  FSB(DYOM.  DYOL,  DYM,  DYL,  DIYM,  DIYL) 

IF  (ABSF(DIYM)  04E-8)  12,  12,  5 

12  CALL  FSB(DZOM,  DZOL,  DZM,  DZL,  DIZM,  DIZL) 

IF  (ABSF(DIZM)  -4E-8)  13,  13,  5 

13  K  =  K+  1 

IF  (K-2)  6.  14,  14 

5  ERASE  K 

6  KNT  =  KNT+  1 

CALL  SQ(DXOM,  DXOL,  DSQXM,  DSQXL) 

CALL  SQ{DYOM,  DYOL,  DSQYM,  DSQYL) 
CALLSQ(DZOM,  DZOL,  DSQZM,  DSQZL) 

CALL  FAD(DSQXM,  DSQXL,  DSQYM,  DSQYL,  DSM,  DSL) 
CALL  FAD(DSM,  DSL,  DSQZM,  DSQZL,  DR02M,  DR02L) 
CALL  FMP(PM{1),  PL(1),  DXOM,  DXOL,  XDXM,  XDXL) 
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CALL  FMP(PIvI(2),  PL(2),  DYOM,  DYOL,  YDYM,  YDYL) 

CALL  FMP(PM(3).  PL(3),  DZOM,  DZOL.  ZDZM,  ZDZL) 

CALL  FAD(XDXM.  XDXL,  YDYM,  YDYL,  CCM,  CCL) 

CALL  FAD(CCM,  CCL,  ZDZM,  ZDZL,  RDRM,  RDRL) 

CALL  FDY(RDR.M.  RDRL,  R02M,  R02L,  SIGMAM,  SIGMAL) 
CALL  FDY(DR02M.  DR02L,  R02M,  R02L,  OMEGAM,  OMEGAL) 
CALL  SQ(SIGMAM,  SIGMAL,  SIGMSM,  SIGMSL) 

CALL  FMPS(SIGMSxM,  SIGMSL,  7.  ,  RM,  RL) 

CALL  FMPS(SIGMSM,  SIGMSL,  15.  ,  SM,  SL) 

CALL  FMPS(SM,  SL,  3.  ,  TM,  TL) 

CALL  FMPS(OMEGAM,  OMEGAL,  3.  ,  UM,  UL) 

CALL  FMPS(UM,  UL,  3.  ,  VM,  VL) 

CALL  FMP(AM,  AL,  SIGMAM,  SIGMAL,  TAM,  TAL) 

CALL  FSB(UM,  UL,  DM.  DL,  CCM,  CCL) 

CALL  FSB(CCM,  CCL,  SM,  SL,  TSM,  TSL) 

CALL  FMP(CM,  CL,  TSM,  TSL,  TSM,  TSL) 

CALL  FSB(CCM,  CCL,  RM,  RL,  CCM,  CCL) 

CALL  FMP(EM,  EL,  CClvt,  CCL,  CDM,  CDL) 

CALL  FMP(CDM,  CDL,  SIGMAM,  SIGMAL,  TRM,  TRL) 
COMPUTE  F 

CALL  FAD(FIM,  FIL,  TAM,  TAL,  FM,  FL) 

CALL  FAD(FM,  FL,  TSM,  TSL,  FM,  FL) 

CALL  FAD(FM,  FL,  TRM,  TRL,  FM,  FL) 

CALL  FMP(HM,  HL,  SIGMAM,  SIGMAL,  HTM,  HTL) 

CALL  FSB(VM,  VL,  QM,  QL,  TOM,  TOL) 

CALL  FSB(TOM,  TOL,  TM,  TL,  TOM,  TOL) 

CALL  FMP(TOM,  TOL,  OM,  OL,  TOM,  TOL) 

CALLFAD(TOM,  TOL,  HTM,  HTL,  HTM,  HTL) 

CALL  FAD(HTM,  HTL,  GIM,  GIL,  GM,  GL) 

DXM  =  DXOM 


DXL=  DXOL 


DYM=DYOM 
DYL=DYOL 
DZM  =  DZOlvI 
DZI.=  DZOi. 

IF  (KNT- 100)  4,  4.  22 

14  PM(4)  =  DXOM 
PL(4)  =  DXOL 
PM(5)  =  DYOM 
PL(5)=:DYOL 
PM(6)  =  DZOM 
PL(6)  =  DZOL 

IF  (KO)  17,  17,  18 

17  WOT  10.  15,  TO,  (PM(I),  1=1.  6) 

GO  TO  20 

15  WOT  10,  19.  TO,  (PM(I).  1=1,  6) 

15  FORMAT(lH13X,  6HTIME=F9.  2,  39X,  IHX,  24X,  IKY,  24X  IHZ/ 

1  1H03X,  8KPOSITION  9X.  1PE40.  7.  9X,  Elb.  7,  IIX,  E14.  7/lH  6X 

2  20HUNITS  OF  EARTH  RADII/  1H03X,  8HVELOCIT Y35X,  E14.  7, 

3  IIX,  E14.  7,  IIX,  E14.  7/lH  6X.  33HUNITS  OF  EARTH  RADII/ 

4  806.  928  SEC. ///) 

19  FORMAT(lH13X,  6HTIME=F9.  2.  39X,  IHX,  24X,  IHY,  24X,  lHZ/1 

1  H03X,  8HPOS1TION  9X,  1PE40.  7.  9X,  E 1 6.  7,  1 IX,  E  14.  7/ IH  6X, 

2  20KUNITS  OF  EARTH  RADII/ 1H03X,  8HVEEOCIT Y35X,  E14.  7, 

3  IIX,  E14.  7.  IIX,  E14.  7/lH  6X,  33HUNITS  OF  EARTH  RADII/ 

4  58.  13244  DA.  ///) 

20  DO  50  I  =  1,  3 
PS  =  PM(I) 

PSL=  PD(I) 

CALL  FMPS(PS,  PSL,  6378.  388,  PAM,  PAL) 

PZM(I)  =  PAM 
PZL(I)  =  PAL 

CALL  FDYS(PAM,  PAL,  149.  5042132E+6,  PAM,  PAL) 
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PMd)  =  PAM 

50  PL(I)  =  PAL 
DO  51  1  =  4,  6 
PS  =  PM  (I) 

PSL=  PL(I) 

IF  (KO)  60.  60,  61 

60  CALL  FMPS(PS,  PSL,  7.90453641,  PAM,  PAL) 

GO  TO  62 

61  CALL  FMPS(PS.  PSL.  .  1  26992648  E-2.  PAM.  PAL) 

62  PZM(I)  =  PAM 
PZL(I)  =  PAL 

CALL  FMPS(PAM,  PAL.  .  24079588 E-4,  PAM,  PAL) 

PM(1)  =  PAM 

51  PL(I)  =  PAL 

WOT  iO,  24,  TO,  (PZMd),  1=1,6) 

WOT  10,  27,  TO,  (PMd),  1=  1,  6) 

24  F0RMAT(1H03X,  6KTIME  =  F9.2,  39X,  IKX,  24X,  IHY,  24X,  IHZ/ 

1  1H03X.  8HPOSITION9X,  1PE40.  7,  5H  KM  E20.  7,  3K  KM8X. 

2  E14.  7,  3H  KM/1H03X,  8HVELOCIT Y35X.  E14.7,  7H  KM/SEC4X. 

3  E14.  7,  7H  KM./SEC4X,  E14.  7,  7H  KM/SEC///) 

27  F0RMAT(1H03X,  6HTIME=F9.  2,  39X,  IHX,  24X.  IHY,  24X,  IHZ/ 

1  1H03X,  8KPOSITION  9X,  1PE40.  7,  7H  A.  U.  E18.  7,  5H  A.  U. 

2  6X,  E14.  7,  5H  A.  U.  /1H03X,  8HVELOCITY  35X,  E14.  7,  8H  A.  U.  / 

3  HR3X,  E14.  7,  8H  A.  U.  /HR  3X,  E14.  7,  8H  A.  U.  /HR) 

GO  TO  1 

22  WOT  10,  23 

23  FORMAT(lH15X,  9XGIVING  UP) 

GO  TO  1 

END  (1,  1,  0,  0,  0,  1) 


B-8 


c.  Two  Position  Vector  Program 

Check  Problem 
Output: 

Time  72.  50  ^ 

Position  -  Units  of  Earth  Radii  | 

X  =  2.  3358772E  00  Y  =  - 3.  7095247E- 0 1  Z  -2.  0855989E-01  ' 

V'eiocity  -  Units  of  Earth  Radii/ 58.  13244  DAY 
X  =  1.  7789361E-01  Y  =  6.  7356692E-01  Z  =  9.  2517561E- 02 

I 

Tim p  =  7?. ,  ^0 
Position 

X=  1.489913iE  04KM  Y  =  -2.  3660788E  03KM  Z  =  1.3302759E 
03KM 
V  elocity 

X  =  2.  259ii80E-04KM/SEC  Y  =  8.  5538046E-04KM/SEC 
2,  =  1.  i749050E-04KM/SEC 
Time  =  72.  50 
Position 

X  =  9.  9656929E-05  A.  U.  Y  =  -1.  5826168E-05  A.  U. 

I 

Z  =  -8.  8979i60E-06  A.  U.  i 

f 

Velocity  j 

X  =  5.  439863iE-09  A.  U.  /HR  Y  =  2.  0597209E-08  A.  U. /HR  j 

Z  =  2.  8291228E-09  A.  U.  HR  | 

Input:  ! 


Card  1 : 

F  1.41889, 

1.  47513, 

1.  00082,  .  05063,  .  02196* 

Ca:rd  2: 

F  . 98156,  . 

175430,  . 

07609,  -9.35,  -10.6166667* 

Card  3; 

F  342.  475, 

341.  775, 

00 

o 

Card  4: 

XI* 

! 

1 

B,  THREE  ANGULAR  POSITION  PROGRAM 
a.  Operational  Directory 
Purpose 

To  find  the  position  and  velocity  of  an  observed  body  at 

Time,  T  ,  from  measurements  of  the  right  ascension  and  declination  or 
o 

azimuth  and  elevation  at  three  different  Times,  T,,  T  ,  T^. 

1  o  3 

Usage 

Input  -  All  decimal  input  is  read  by  a  modified  DBG  FORTRAN 
subroutine  which  accepts  'variable  length  fields.  All  fields  are  floating 
point  numbers  except  starred  fields  which  are  integers.  The  list  of  input 
quantities  follows  in  the  order  in  which  they  must  be  read  into  the  program 
and  then  the  input  for  a  sample  problem.  All  angle  inputs  must  be  in 
degrees  and  decimals  of  a  degree.  Range  mcasurement.s  must  be  in  units  of 
Earth's  equatorial  radius,  (6378.  388  km.  =  equatorial  radius  of  Earth). 


Curd 

=Fieid 

1  ” 
i 

Control  Parameter,  KO  If  KO  0,  the  unit  of 

time  will  be  equal  to  58.  132441  days.  If  KO  >  1, 

the  unit  of  time  will  equal  to  806.  996813  sec.  5 

Card 

2 

* 

4 

Field 

1  - 

"i’ 

Time  T  in  days  and  decimals  of  a  day.  ^ 

Field 

2  - 

"i’ 

1 

right  ascension  in  degrees  and  decimals  of  a  degree  J 

a.  Tj. 

Field 

3  - 

declination  in  degrees  and  decimals  of  a  degree 

atTi- 

Field 

4  - 

^1 

Geocentric,  equatorial  coordinates  of  observer's 

Field 

5  - 

^1 

position  nn  Earth  at  time  T  in  units  of  earth's  | 

Field 

6  - 

^1 

equatorial  radius.  ^  | 
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I 


Card 

_3_- 

T  ,  a  . 
o  o 

S  >  X  ,  y  ,  z 

O  O  O  O  ; 

Same 

format  as  Card  2 

Card 

4  - 

T ,  a  ,  , 

j  J 

S..,  X,  ,  y.,,  z„  ; 

j  ^  J  J 

Same 

format  as  Card  2 

Sample  Input 

Card  1 

XI* 

Card  2 

F  64.  5,  343.  279.  -  7.  98,  1.  0012,  -  .  0712,  -  .  03258* 

Card  3 

F  72.  5,  342.280,  -  9.34,  1.00082,  .05063,  .02196* 

Card  4 

F  80.  5,  341.469,  -  10.56,  .98125,  .17543,  .07609* 

Output  -  The  X,  Y,  Z  components  of  the  position  vector  are  printed 
out  in  units  of  Earth's  equatorial  radius,  kilometers,  and  astronomical  units; 
the  X,  Y,  Z  components  of  the  velocity  vector  are  printed  out  in  units  of 
Earth's  equatorial  radius  per  806.  996813  sec.  ,  km.  per  sec.  and  A.  U.  per 
hr.  ,  If  KO  .>1.  If  KO  S.  0>  the  velocity  will  be  printed  out  in  units  of 
Ea  n'.s  equatorial  radius  per  5b.  132441  days,  km.  per  sec.  and  A.  U.  per  hr. 


b.  Three  Angular  Position  Program 

DIMENSION  T{3),  ALPHA(3),  PHI(3),  X(3),  Y(3).  Z(3),  YOUM  (3), 

1  YOUL(3),  VEEM(3),  VEEL(3),  PIM(3),  PIL(3),  QM(3),  QL(3),  PM(6) 
2  PL(6) 

DIMENSION  PZM{6),  PZL{6) 

6  RIT2,  l,KO,  (Td),  ALPHA(I),  PHI(I),  X(I),  Y(I),‘z(I),  I  =  1,  3) 

1  FORMAT  (515) 

ERASE  KNT 
DO  5  I  =  1,3 
ALPM  =  ALPHA  (I) 
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Prillvl  ^  PHI  (I) 

DP3C  (ALPM,  O.  ,  SINAivl,  SINAL,  COSAM,  COSAL,  O.  ) 
CALL  DP'^.C  O.  ,  ‘  TNT^'VT  STNPT,.  COSPM.  COSPL.  O.  ) 

CALL  FDY  (SINAM.  SINAL,  COSAM,  COSAL,  TANAM,  TANAL) 
CALL  rDY(SINPM,  SINPL,  COSPM,  COSPL,  TANPM,  TANPL) 
YOUM  (I)  =  TANAM 
YOUL  (I)  :::  TANAL 

CALL  FDY  (TANPM,  TANPL,  COSAM,  COSAL,  TASEM,  TASEL) 
VEEM  (I)  =  TASEM 
VEEL  (I)  =  TASEL 
XM  =  X  (I) 

CALL  FMPS  (TANAM,  TANAL,  XM,  UXM,  UXL) 

YM  =  Y  (I) 

CALL  FSB  (YM,  O.  ,  UXM,  UXL,  YUXM,  YUXL) 

PIM  (I)  =  YUXM 
PIL  (I)  =  YUXL 

CALL  FMPS  (TASEM,  TASEL,  XM,  VXM,  VXL) 

ZM  =  Z  (I) 

CALL  FSB  (ZM,  O.  ,  VXM,  VXL,  ZVXM,  ZVXL) 

QM  (I)  =  ZVXM 
5  QL  (I)  =  ZVXL 
IF  (KO)  9,  9,  10 
9  TU  =  58.  132441 
GO  TO  11 

10  TU  =  .  93394389E-2 

11  CALL  FSBS  (T(l),  O.  ,  T  (Z),  DTM,  DTL) 

CA.LL  FDYS  (DTM,  DTL,  TU,  TAUMl,  TAULl) 

CALL  FSBS  (T(3),  O.  ,  T(2),  DTM,  DTL) 

CALL  FDYS  (DTM,  DTL,  TU,  TAUM3,  TAUL3) 

CALL  FSB  (TAUM3,  TAUL3,  TAUMl,  TAULl,  DTAUM,  DTAUL) 
CALL  FSB  (YOUM(l),  YOUL(l),  YOUM(Z),  YOUL(2),  UNMl,  UNLl) 
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CALL  FDY  (UNMl,  UNLl,  TAUMl,  TAULl,  UMl,  ULl) 

CALL  FSB  (YOUM  (3),  YOUL{3),  YOUM(2),  YOUL(2),  UNM3,  UNL3) 

*> 

CALL  FDY  (UNM3.  UNL3,  TAUM3,  TAUL3,  UM3,  UL3) 

CALL  FSB  (VEEM  (1),  VEEL(l),  VEEM(2),  VEEL(2),  VNMl,  VNLl) 
CALL  FDY  (VNMl,  VNLl,  TAUxMl,  TAULl,  VMl,  VLl) 

CALL  FSB  (VEEM(3),  VEEL{3),  VEEM  (2),  VEEH2),  VNM3,  VNL3) 
CALL  FDY  (VNM3,  VNL3,  TAUM3,  TAUL3,  VM3,  VL3) 

CALL  FSB  (Plivl  (1),  PIL(l).  PIM(2),  PIL(2),  PNMl,  PNLl) 

CALL  FDY  (PNMl,  PNLl,  TAUMl,  TAULl,  PMl,  PLl) 

CALL  FSB  (P1M(3),  PIL(3),  PIM(2),  PIL(2),  PNM3,  PNL3) 

CALL  FDY  (PNM3,  PNL3,  TAUM3,  TAUL3,  PM3,  PL3) 

CALL  FSB  (QM(1),  QL(1),QM(2),  QL(2),  QNMl,  QNLl) 

CALL  FDY  (QNMl,  QNLl,  TAUMl,  TAULl,  QMl,  QLl) 

CALL  FSB  (QM(3),  QL(3),  QM(2),  QL(2),  QNM3,  QNL3) 

CALL  FDY  (QNxM3,  QNL3,  TAUM3,  TAUL3,  QM3,  QL3) 

12  NO  =  1 
PAM  =  UMl 
PAL  =  UL 1 
PBM  =  UM3 
PBL  -  UL3 

13  CALL  FMP  (TAUxM3,  TAUL3,  PAM,  PAL,  TMVM,  TMVL) 

CALL  FxMP  (TAUMl,  TAULl,  PBM,  PBL,  TSVM,  TSVL) 

CALL  FSB  (TMVM,  TxMVL,  TSVM,  TSVL,  TNM,  TNL) 

CALL  FDY  (TNM,  TNL,  DTAUM.  DTAUL,  DOM,  DOL) 

CALL  FSB  (PBM,  PBL,  PAM,  PAL,  TNM,  TNL) 

CALL  FDY  (TNM,  TNL,  DTAUM,  DTAUL,  D20M,  D20L) 

GO  TO  (20,  21,  22,  23),  NO 
20  DUM  =  DOM 

DUL  =  DOL 
D2UM  =  D20M 
D2UL  =  D20L 


PAM  =  VMl 
PAL  =  VLl 

PBM  =  VM3  .. 

PBL  VL3 
NO  =  NO  +  1 
GO  3?0  13 
Zi  DVM  =  DOM 
DVL  =  DOL 
D2VM  -  D20M 
D2VL  =  D20L 
PAM  =  PMl 
PAL  =  PLl 
PBM  =  PM3 
PBL  =  PL  3 
NO  =  NO  -f  1 
GO  TO  13 

22  DPM  =  DOM 
DPL  =  DOL 
D2PM  =  D20M 
D2PL  =  D20L 

PAM  =  QM 1  ■  ' 

PAL  =  QLl 
PBM  =  QM3 
PBL  =  QL3 
NO  =  NO  -i-  1 
GO  TO  13 

23  DQM  =  DOM 
DQL  =  DOL 
D2QM  =  D20M 
D2QL  =  D20L 

CALLFMP(D2UM,  D2UL,  DVM,  DVL,  UVMM,  UVML) 
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CALL  FMP(D2VM,  D2VL,  DUM,  DUL,  UVSM,  UVSL) 

CALL  FSB  (UVSM,  UVSL,  UVMM,  UVML,  DM,  DL) 

CALL  FMP(D2PM,  D2PL.  DVM,  DVL,  PVMM,  PVML) 

CALL  FMP(D2QM,  D2QL,  DUM,  DUL,  QUMM,  QUML) 

CALL  FSB  (PVMM,  PVML,  QUMM,  QUML,  AM,  AL) 

CALL  FMP  (PIM(2),  PiL(2),  DVM,  DVL,  PVMM,  PVML) 
CALL  FMP(QM(2),  QL(2),  DUM,  DUL,  QUMM,  QUML) 

CALL  FSB  (PVMM,  PVML,  QUMM,  QUML,  BM,  BL) 
CALLSQ(  VEEM(2),  VEEL(2),  VSQM,  VSQL) 

CALL  5Q(  if  uum(^:),  ifUUJ_,(^),  UbUM,  USQL) 

CALL  FAD  (VSQM,  VSQL,  USQM,  USQL,  UVSQM,  UVSQL) 
CALL  FADS(UVSQM,  UVSQL,  1.  .  CM,  CL) 

CALL  FMP(YOUM(2),  YOUL(2),  PIM(2),  PIL(2),  UPM,  UPL) 
CALL  FMP(VEEM(2),  VEEL(2),  QM(2),  QL(2L)VQM,  VQL) 
CALL  FAD  (UPM,  UPL,  VQM,  VQL,  EM,  EL) 

CALL  SQ  (PIM  (2),  PIL(2),  PSQM,  PSQL) 

CALL  SQ  (QM  (2).  QL(2),  QSQM.QSQL) 

CALL  FAD  (PSQM,  PSQL,  QSQM,  QSQL,  FM,  FL) 

CALL  FMP(D2QM,  D2QL,  D2UM,  D2UL,  D2QUM,  D2QUL) 
CALL  FMP(D2PM,  D2PL,  D2VM,  D2VL,  D2PVM,  D2PVL) 
CALL  FSB(D2QUM,  D2QUL,  D2PVM,  D2PVL,  GM,  GL) 
CALL  FMP(D2UM,  D2UL,  QM(2),  QL(2),  D2UQM,  D2UQL) 
CALL  FMP(D2VM,  D2VL,  PIM  (2),  PIL(2),  D2VPM.  D2VPL) 
CALL  FSB  (D2UQM,  D2UQL,  D2VPM,  D2VPL,  HM,  HL) 

RM  =  1.  G2 
RL  =  0. 

CALL  CUBE  (RM,  RL,  R3M,  R3L) 

CALL  FAD(R3M,  R3L,  R3M,  R3L,  R3M,  R3L) 

CALL  FDY(BM,  BL,  R3M,  R3L,  BRM,  BRL) 

CALL  FAD  (AM,  AL.  BRM,  BRL,  BARM,  BARL) 

CALL  FDY  (BARM,  BARL,  DM,  DL,  XM,  XL) 


CALL  SQ  (XM,  XL,  X2.M,  X2L) 

CALL  FMP  {X2M,  X2L.  CM,  CL,  CXM,  CXL) 

CALL  FMP  (XM,  XL,  EM,  EL,  EXM,  EXL) 

CALL  FAD  (EXM,  EXL,  EXM,  EXL.  EXM,  EXL) 

CALL  FAD  (CXM,  CXL,  EXZvI,  EXL,  ECXM,  ECXL) 

CALL  FAD  (ECXM,  ECXL,  FM,  FL,  RNM,  RNL) 

CALL  DPSQRT  (RNM,  RNL.  RNM,  RNL) 

WOT  10,  3,  XM,  RNM 

FORMAT  (IHOiOX,  4HX  =  I  PE16.  7,  lOX,  4HR  =  E16.  7) 

KNT  =  KNT  +  1 

CALL  FSB  (RNM,  RNL,  RM,  RL,  DRM,  DRL) 

IF  (ABSF(DRM)  -  IE  -  8)  33,  33,  34 

IF  (KNT  -  100)  35,  35.  36 

RM  =  RNM 

RL  =  RNL 

GO  TO  30 

WOT  10,  4 

FORMAT  (IHOIOX,  9HGIVING  UP) 

GO  TO  6 

CALL  CUBE  (RNM,  RNL,  R.NM,  RNL) 

CALL  FAD  (RNM,  R.NL,  RNM,  RNL,  RNM,  RNL) 

CALL  FDy(BM,  BL,  RNM,  RNL,  BRM,  BRL) 

CALL  FAD  (AM,  AL,  BRM.  BRL,  BARM,  BARL) 

CALL  FDY  (BARM,  BARL,  DM,  DL.  PM(1),  PL(1)) 

CALL  FDY  (HM,  HL,  RNM.  RNL,  HRM,  HRL) 

CALL  FAD  (HRM,  HRL,  GM,  GL,  HRM,  HRL) 

CALL  FDY  (HRM,  HRL,  DM,  DL,  PM(4),  PL(4)) 

CALL  FMP  (YOUM(2),  YOUL(2),  PM(1),  PL(1),  XUM,  XUL) 
CALL  FAD  (XUM,  XUL,  PIM(2).  PIL(2),  PM(2),  PL(2)) 

CALL  FMP  (DUM,  DUL,  PM(1),  PL(1),  DXUM,  DXUL) 

GALL  FMP  (YOUM(2),  YOUL(2),  PM(4),  PL(4) .  DUXM,  DUXL) 
CALL  FAD  (DXUM,  DXUL,  DUXM,  DUXL,  DYM,  DYL) 
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CALLFAD(DYM.  DYL.  DPM,  DPL,  PM  (5),  PL(5)  ) 

CALI.  FMP(VEEM  (2).  VEEL(2),  PM(1),  PL(1),  VXM,  VXL) 

CAT-T.  FAD(VXM.  VXL,  OM  (2),  QL(2),  PM(3),  PL(3)  ) 

CALL  FMP  (DVM,  DVL,  PM(1),  PL(1),  DVXM,  DVXL) 

CALL  FMP(YEE.M(2),  VEEL(2),  PM.  (4),  PL(4),  DXVM,  DXVL) 

CALL  FAD  (DVXM.  DVXL,  DXVM,  DXVL,  DXM,  DXL) 
CALLFAD(DXM,  DXL,  DQM,  DQL,  PM  (6),  PL(6)  ) 

IF  (KO)  17,  17,  18 

17  WOT  10.  19,  T  (2),  (PM(I),  I  =  1.  6) 

GO  TO  63 

18  WOT  10,  15,  T(2),  (PMd),  I  -  1.6) 

15  FOR.MAT  (1H13X,  6HTIME  =  F9.  2,  39X,  IHX,  24X,  IHY,  24X,  IHZ/ 

1  1H03X,  8HPOSITION  9X,  1PE40.  7,  9X,  E  1 6.  7,  IIX,  E14.  7/lH 

2  6X,  20HUNITS  OF  EARTH  RADII/ 1H03X,  8HVELOCITY35X, 

3  E14.  7.  llX,  E14.  7,  IIX,  E14.  7/lH  6X,  33HUNITS  OF  EARTH  RADII/ 

4  806.  928  SEC.  ///) 

19  FORMAT  (1H13X,  6HTIME  =  F9.  2,  39X,  IHX,  24X,  IHY,  24X.  IHZ/ 

1  1H03X,  8HPOSITION  9X.  1PE40.  7,  9X.  E16.  7,  IIX,  E14.  7/  IH  6X, 

2  20  HUNITS  OF  EARTH  RADII/ 1H03X,  8HVELOCITY35X,  E14.  7. 

3  IIX,  E14.  7.  IIX,  E14.7/1H  6X,  33HUNITS  OF  EARTH  RADII/ 

4  58.  13244  DA.  // /) 

63  DO  50  I  =  1,  3 
PS  =  PM(I) 

PSL  =  PL(I) 

CALL  FMPS(PS,  PSL,  6378.  388,  PAM,  PAL) 

PZM(I)  =  PAM 
PZL(I)  -  PAL 

CALL  FDYS  (PAM,  PAL,  149.  80421 32E  +  6,  PAM,  PAL) 

PM  (I)  =  PA.M 
50  PL  (I)  =  PAL 

DO  51  1  =  4,  6 
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PS  =  PM  (I) 

PSL=:PL{I) 

IF{KO)  60,  60,  61 

60  CALL  FMPS(PS,  PSL,  .  12992648E-2,  PAM,  PAL) 

GO  TO  62 

61  CALLFMPS(PS,  PSL.  7.90453641,  PAM,  PAL) 

62  PZM(I)  =  PAM 
PZL(I)  =PAL 

CALL  FMPS  (PAM.  PAL.  .  240795aRr,-4,  PAM,  PAT,) 

PM  (I)  =  PAM 
51  PL  (I)  =  PAL 

WOT  10,  24T(2),  (PZM(I),  1=1,6) 

WOT  10,  27,  T{2),  {PM  (I),  1=1,  6) 

24  FORMAT  (1H03X,  6nTIME=F9.2,  39X,  l-HX,  24X,  IHY,  24X,  IHZ/ 

1  1H03X,  8HPOSITION  9X,  1PE40.  7.  5H  KM  E20.  7,  3H  KM8X, 

2  E14.  7,  3H  KM/1H03X,  8HVELOCITY  35X.  E14.  7,  7H  KM/SEC4X, 

3  E14.  7,  7H  KM/SEC4X,  E14.  7H  KM/SEC///) 

27  FORMAT  (1H03X,  6HTIME=F9.2,  39X,  IHX,  24X,  IHY,  24X.  IHZ/ 

1  1H03X,  8HPOSITION  9X,  1PE40.  7,  7H  A.  U.  E18.  7,  5H  A.  U. 

2  6X,  E14.  7,  5H  A.  U.  /1H03X,  8HVELOCITY35X.  E14.  7,  8H  A.  U.  / 

3  HR3X,  E14.  7,  8H  A.  U.  /HR3X,  E14.  7,  8H  A.  U.  /HR) 

40  GO  TO  6 

END  (1,  1,  0,  0,  0,  1) 


Three  Angular  Position  Program 

Check  Problem 

Output: 

Time  33.91 

Position- Units  of  Earth  Radii 


i 


t 


i 

i 

i 

I 


« 

f 
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X  =  2.2272140E  00  Y  =  -6,  426 1 1.67E-0 1  Z  =  -2.  4354754E-0  1 
Velocity- Units  of  Earth^Radii/ 58.  13.244  DAY 
X  =  2.  5257830E-01  Y  =  6.  6070658E-01  Z  =  8.  8773156E-02 
Time  =  33.  91 
Position 

X  =  1.4206035E  04  KM  Y  =  -4.  0988266E  03KM  Z=1.5534407E  03KM 
V  elocity 

X  -  3.  2816609E-04  KM/SEC  Y  =  8.  5843279E-04  KM/SEC  Z 

=  1.  1533984E-04  KM/SEC 

Time  =  33.91 
Position 

X  =  9.  5020968E-05  A.  U.  Y  =  -2.  7416128E-05  A.  U.  Z 


=  -  1.  0390615E-05  A.  U. 


Velocity 


X  =  7.  9021043E-09  A.  U.  /HR  Y  =  2.  0670708E-08  A,.  U/HR  Z 


=  2.  7773358E-09  A.  U.  /HR 


Input : 


Card  1:  XO* 

Card  2;  F  30.  006,  346.5265,  -3.690944,  .9217386,  -.3782763, 

-.  16402741* 

Card  3:  F  33.  9067,  345.92583,  -4.510222,  .9460249,  -.3214131, 
-.  1393582* 

Card  4:  F  37.9351,  345.28958,  -5.365694,  .9667071,  -.2612860, 
-.  1132835* 


C.  CONVERSION  OF  COORDINATES  FROM  EQUINOX  TO  EQUINOX 
a.  Operational  Directory 


Purpose 


to  other  equinoxes  and  vice  versa. 


To  rotate  a  given  vector  X  =  |  Y  )  from  the  equinox  of  1950.  0 
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Usage 


Input  -  All  decimal  input  is  lead  by  a  modified  DBG  FOR.TRAN 
subroutine  which  accepts  variable  length  fields.  All  fields  are  floating  point 
numbers  except  for  starred  fields  which  are  integers. 


Following  is  the  list  of  input  quantities  in  the  order  in  which 
they  are  read  into  the  program: 

Card  1 

^  X  ^  ^  ^  4-  >•  1  "D  ^  4-  ;%  >• 

Lf  N5  ^  1,  X  will  be  rotated  from  equinox  of  date 
to  equinox  of  1950.  0. 

If  N5  ^  0,  X  will  be  rotated  from  equinox  of  1950.  0 

to  equinox  of  date. 

’’■‘Field  2  -  NP,  Control  Parameter 

NP  must  be  equal  to  the  number  of  vectors  which 
are  to  be  rotated  as  specified  by  N5.  1  iNP.<.10. 


Cards  2  -  NP  +  1 

Field  1  -  Whole  nximber  component  of  Julian  Date.  The 

Julian  Date  must  correspond  to  the  beginning  of 
the  Besselian  Year. 

Field  2  -  Decimal  Component  of  Julian  Date. 

Field  3  -  X  component  of  vector  to  be  rotated. 

Field  4  -  Y  component  of  vector  to  be  rotated. 


Field  5 


Z  component  of  vector  to  be  rotated. 


Sample  Input 

Card  1  -  Columns  1-5 
XI,  2=:= 

Card  2  -  Columns  1-32 


B  TO 


i-f  uyj 


Car<i  2  -  Columns  i-32 


F  2437203.  .  ,5,  .2985,  .3740,  -.6739’!' 

Card  3  -  Col\.unns  1-32 

F  2437008.  .  .5,  .0046,  -.5968,  -.3702’!' 

Output  -  The  vector  components  are  printed  out  referenced  to 
the  new  equinox. 


b.  Conv'ersion  of  Coordi:  utes  from  Equinox  to  Equinox 

DAC  Aivl(3,  3),  AL(3,  5),  PZivi(i0,  5),  PZE(iO,  5),  DJM(iO),  UJE(J.U), 

1  X(10),  Z(10),  Y(10),  XMIO).  YL(IO),  ZL(IO) 

C  N5  =  ],  REDUCTION  OF  X,  Y,  Z  OF  DATE  TO  EQUINOX  OF  1950.  0 

C  N5  =  0.  REDUCTION  OF  X.  Y,  Z  OF  1950.  0  TO  MEAN  EQUINOX  OF 

1  DATE 

I  PJT2,  3,N5,NP 

3  FOR.xMAT  (515) 

II  RIT  2,  3,  (DJM(I),  DJL(I),  X{I),  Y(I),  Z(I),  1=  1,  NP) 

ERASE  XL,  YL,  ZL 

DO  500  J  =  1,  NP 
DJIM  =  DJM(J) 

DJIL  =  DJL(J) 

IF  (N5)  61,  71,  61 

61  CALL  FSB(2433282.  ,  .  5,  DJIM,  DJIL,  VM,  VL) 

GO  TO  62 

71  CALL  FSB(DJIM,  DJIL,  2433282.  ,  .  5,  VM,  VL) 

62  CALL  FDYS(VM,  VL,  36525.,  VM,  VL) 

CALL  SQ(VM,  VL,  VSQM,  VSQL) 

CALL  CUBE(VM,  VL,  VCUM,  VCUL) 

CALL  FMPS(VSQM,  VSQL,  .00029696,  CM,  CL) 

CALL  FMPS(VCUM,  VCUL,  .00000014,  DM,  DL) 

CALL  FSB{1.  ,  0.  ,  CM,  CL,  CM,  CL) 
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CALL  FSB(CM,  CL,  DM,  DL,  AM(i.  1),  AL(1,,  1)  ) 
CALL  FMPS  (VM,  VL,  -.02234941,  CM,  CL) 

CALL  FMPS(VSQM,  VSQL,  .  00000676,  DM,  DL) 
CALL  FM,PS(VCUM,  VCUL,  .00000221,  EM,  EL) 
CALL  FS5(CA4,  cl,  DM,  DL,  CM,  CL) 

CALL  FAD(CM,  CM,  EL,  AM(1.2),  AL(1,2)  ) 

CALL  FMP-S(VM,  VL,  -.00971691,  CM,  CL) 

CALL  FMPS(VSQM,  VSQL,  .00000206,  DM,  DL) 
CALL  FMPS(VCUM,  VCUL,  .00000098,  EM,  EL) 
CALL  FAD(CM,  CL,  DM,  DL,  CM,  DL) 

CALL  FAD(CM,  CL,  EM,  EL,  AM(1,  3),  AL(1,  3)  ) 
A.M(2,  1)  =  -AM(1,  2) 

AL(2,  1)  =-AL(l,  2) 

CALL  FMPS(VSQM,  VSQL,  .00024975,  CM,  CL) 
CALL  FMPS(VCUM,  VCUL,  .00000015,  D2v{,  DL) 
CALL  FSB(1.  ,  0.  ,  CM,  CL,  CM,  CL) 

CALL  FSB(CM,  CL,  DM,  DL,  AM(2,  2),  AL(2,  2)  ' 
CALL  FMPS(VSQM,  VSQL,  -.00010858,  CM,  CL) 
CALL  FMPS(VCUM,  VCUL,  .00000003,  DM,  DL) 
CALL  FSB(CM,  CL,  DM,  DL,  AM(2,  3),  AL(2,  3)  ) 
AM(3,  1)  =  AM(1,  3) 

AL(3,  1)  =  -AL(1,  3) 

AM(3,  2)  =  AM(2,  3) 

AL(3,  2)  =  AL(2,  3) 

CALL  FMPS(VSQM,  VSQl„  .00004721,  CM,  CL) 
CALL  FMPc:(VCU^'I,  VCUL,  .  00CC0002,  DM,  DL) 
CALL  FSB(1.  0.  ,  CM,  CL,  CM,  CL) 

CALL  FAD(CM,  CL,  DM,  DL,  AM(3,  3),  AL(3,  3)  ) 
DO  7  I- 1,  3 

CALL  FMP(AM(I,  1),  AL(I,  1),  X{J),  XL(J),  CM,  CL) 
CALL  FMP(AM(I,  2),  AL{I,  2),  Y{J),  YL(J),  DM,  DL) 
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CALL  FMP(AM(I.  3),  AI-^,  3),  Z(J),  ZL(J),  EM,  EL) 

CALL  FAD(CM,  CL,  DM,  DL,  CM,  CL) 

7  CALL  FAD(CM,  CL,  EM,  EL,  PZM(J,  I),  PZL(J,  I)  ) 

500  CONTINUE 

DO  9  J  =  1.  NP 
X  (J)  =  PZM(J,  1) 

Y  (J)  =  PZM(J,  2) 

Z  (J)  =  PZiVl(J,  3) 

XL(J)  =  PZL(J,  1) 

YL(J)  =  PZL(J,  2) 

9  ZL(J)  PZL(J,  3) 

IF  (N5)  20,  20,  21 

20  WOT  10,  24,  (X{I),  Y{I),  Z(I),  1=1,  NP) 

24  FORMAT(lH16X,  62H  COORDINATES  REFERENCED  TO  MEAN 

1  EQUINOX  OF  DATE/{1HC6X,  2HX  -  1PE14,  7,  iOX,  2HY  =  E  14.  7,  lOX 

2  2HZ  =  E14.  7)  ) 

GO  TO  1 

21  WOT  10,  30 

30  FORMAT  (IHO) 

WOT  10,  25,  (X(I),  Y(I),  Z(I),  I  =  1,  NP) 

25  FORMAT(1H06X,  62H  COORDINATES  REFERENCED  TO  MEAN 

1  EQUINOX  OF  1950/(1H06X,  2KX  -  1FE14.  7,  iOX,  2HY  =  E14.  7,  lOX, 

2  2HZ  =E14.  7)  ) 

GO  TO  1 

END  (1,  1,  0,  0,  0,  1) 


c.  Conversion  of  Coordinates  from  Equinox  to  Equinox 

Check  Problem 
Output: 

Coordinates  Referenced  to  Mean  Equinox  of  1950 
X  =  1.  0008215E  00  Y  =  5.  0628301E-02  Z  =  Z.  1963697E-02 


B-23 


Coordinates  Referenced  to  Mean  Equinox  of'Date 
X  =  i.  0010150E  00  Y  =4.  7274507E-02  Z  =  2.  0501 0  1  lE-02 
Input ; 

Card  1:  X  1,  1* 

Card  2;  2428072.  ,  .5,  1.0010150.  .04727450,  .02050101’:' 

Card  3;  X  0, 

Card  4:  2428072.,  .5,  1.0008215,  .05062830,  .02196369’!' 

D.  CONVERSION  OF  RIGHT  ASCENSION  AND  DECLINATION  FROM 
EQUINOX  TO  EQUINOX 

a.  Operational  Directory 

Purpose 

To  reduce  right  ascension  and  declination  referenced  to  mean 
equinox  of  date  to  right  ascension  and  delination  refeienced  to  mean  equinox 
of  1950.  0  and  vice  versa, 

.■  Usage 

Input  -  All  decimal  input  is  read  by  a  modified  DBC  FORTRAN 
subroutine  which  accepts  variable  length  fields.  All  fields  are  floating  point 
numbers  except  for  starred  fields  which  are  integers. 

The  list  of  input  quantities  in  the  order  in  which  they  are  read 
into  the  program  follows; 

Card  1 

’’■'Field  1  -  N3,  Control  Parameter 

If  N3  _>  1,  a  and  5  will  be  reduced  from  eqilinpx  of 
1950.  0  to  equinox  of  date. 

If  N3  ^  0,  a  and  f  will  be  reduced  from  equinox  of  date 
to  equinox  of  1950.  0. 
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*Field  2  -  NP,  Control  Parameter 

NP  must  be  equal  to  the  number  of  reductions  which  are 
to  be  made  as  specified  by  N3,  1  <.  NP  10. 

Cards  Z  -  NP  +  1 

Field  1  -  Whole  number  component  of  Julian  Date. 

Field  2  -  Decimal  component  of  Julian  Date. 

Field  3  -  Paght  ascension  in  degrees  and  decimals  of  a  degree, 

Field  4-  -  Declination  in  degrees  and  decimals  of  a  degree. 

Sample  Input 
Card  1;  Columns  1-5 
XO,  1  * 

Card  2;  Columns  1-37 

F  2415020.  .  .5,  332.2054167,  -80.9374167* 

Output  -  The  right  ascension  and  declination  are  printed  out  in 
degrees  and  decimals  of  a  degree  referenced  to  desired  equinox. 

b.  Conversion  of  Right  Ascension  and  Declination  from  Equinox  to  Equinox 

DAC  DJM(IO),  AL.PHAM(IO),  APL(20),  APM(20),  DDM(20) .  DDL(20) , 

1  DJL(IO),  ALPHAL(IO).  DELTAM(IO),  DELTAL(IO) 

1  RIT  2,  3,  N3,  NP 

3  FORMAT  (515) 

2  RIT  2,  3,  (DJM(I),  DJL(I),  ALPHAM{I),  DELTAM(I),  1=1,  NP 

C  CONVERSION  OF  ALPHA  +  DELTA  FROM  DATE  TO  EQUINOX  OF 

1  1950.  0,  N3  =  3 

C  CONVERSION  OF  ALPHA  +  DELTA  FROM  EQUINOX  TO  DATE, 

I  N3  =  +1 

DO  4001  =  1,  NP 
440  FORMAT(lHl) 

ERASE  KNT,  ALPHL^  DELTL 
DJIM  =  DJM(I) 


f 
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DJIL  =  DJL(I) 

CALL  FSB(DJIM,  DJIL,  2433281.  .  .  5.  AMM,  AML) 

C.\LL  FDYS(AMM,  AML,  365.25,  RDM,  RDL) 

CALL  FSB(2433281.  .  '.  5,  DJIM,  DJIL.  REM,  REL) 

CALL  FDYS(REM,  REL.  365.25,  REM,  REL) 

COMPUTE  M  AND  N,  AMM  =  M,  ANM  =  N 
CALL  FMPS(RDM,  RDL,  .25,  AQM,  AQL) 

CALL  FMF3(AQM,  AQL,  .000279,  AMM,  AML) 

CALL  FABS(AMM,  AML,  46.  09905,  AMM,  AML) 

CALL  FDYS(AMM,  AML,  3600.  ,  AMM.  AML) 

CALL  FMPS(AQM,  AQL,  .  000085,  ANM,  ANL) 

CALL  FSB(20.  0426,  0.  ,  A.NM,  ANL,  ANM,  ANL) 

CALL  FDY5{A.NM,  ANL,  3600.  ,  ANM,  ANL) 

ALPHM  =  ALPHAM(I) 

DELTM  ^  DELTAM(I) 

60  CALL  DPSC(ALPHM,  ALPHL,  SALPHM,  SALPHL,  CALPHM, 

1  CALPHL,  0) 

CALL  DP3C(DELTM,  DELTL,  SDELTM,  SDELTL,  CDELTM, 

1  CDLTL,  0) 

COMPUTE  DALPHA/DT  AND  DDELTA/DT 

CALL  FDY(SDEJ.TM,  SDELTL,  CDELTM,  CDELTL,  TDELTM, 
1  TDELTL) 

CALL  FMP(TDELTM,  TDELTL,  SALPHM,  SALPHL,  DADTM, 

1  DADTL 

CALL  FMPfDADTM,  DADTL,.  ANM,  ANL,  DADTM,  DADTL) 
CALL  FAD(DADTM,  DADTL,  AMM,  AML,  DADTM,  DADTL) 
CALL  FMP(ANM,  ANL,  CALPHM,  CALPHL,  DDDTM,  DDDTL) 
KNT  =  KNT  +1 
IF  (N3)  50,  50,  51 
50  _  RDM  =  REM 
RDL  =  REL 


I 
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51  CALL  FmP{RDM,  R.DL,  DADTM,  DADTL,  APIM,  APIL) 

CALL  FAD{APIM,  APIL,  ALPHAM(I).  ALPHAL(I),  APM(KNT) 

1  APL{KNT)  ) 

CALL  FMP(RDM,  RDL,  DDDTM,  DDDTL,  DDIM,  DDIL) 

CA.LL  FAD(DDIM,  DDIL.  DELTAM(l),  DELTAL(l),  DDM(KNT), 

1  DDL{KNT}  ) 

IF  (KNT  -  2)  53,  54,  54 

54  CALL  FSB(APM{KNT),  APL(KNT),  APM(KNT-l),  APL(KNT-l). 

1  DAP,  DAL) 

CALI.  FSB(DDM(KNT),  DDL{KNT),  DDM(KNT- 1 )  DDL(KNT- 1), 

1  DDD,  DAL) 

IF  (ABSF(DAP)  ■  lE-8)55,  53,  53 

55  IF  (ABSF(DDD)  -  lE-8)62,  53,  53 

53  CALL  FAD(APM(KNT),  APL(KNT),  ALPHAM(I),  ALPHAL(I),  ALPHM, 

1  ALPHL) 

CALL  FMPS(ALPHM,  ALPHL,  .  5,  ALPHM,  ALPHL) 

CALL  FAD(DDM(KNT),  DDL(KNT),  DELTAM(I),  DELTAL(I),  DELTM, 

^  T  T«  T  \ 

i  i  -Lj/ 

CALL  FMPS(DELTM,  DELTL,  .  5,  DELTM,  DELTL) 

IF  (KNT-ZO)  60,  80,  80 
80  WOT  10,  8 

8  F0R.MAT{1H06X,  9HGIVING  UP) 

GO  TO  400 

62  ALPHAM(I)  =  APM(KNT) 

ALPHALd)  =  APL(KNT) 

DELTAM{I)  =  DDM(KNT) 

DELTAL{I)  =  DDL{KNT) 

400  CONTINUE 

IF  {N3)  70.  70,  71 

70  WOT  10,  5,  (ALPHAM(I),  DELTAM(I),  I  1,  NF) 

5  FORMAT{lH115X,  62HASCENSION  AND  DECLINATION 


1 
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1  REFERENCED  TO  MEAN  EQUINOX  OF  1950.  0/(1H020X, 

2  6HALPHA  =  1PE14.  7,  16H  DEGREES  DEDTA  =  E14.  7,  8H  DEGREES)  ) 
GO  TO  1 

71  WOT  10,  6(ALPHAM(I),  DELTAM(I),  1=1,  NP) 

6  FORMAT  (1K115X,  62HASCENSION  AND  DECLINATION 

1  REFERENCED  TO  MEAN  EQUINOX  OF  DATE/{lHO20X, 

2  6HALPHA  -  1PE14.  7,  1  6H  DEGR.EES  DELTA  =  14.  7,  8  H  DEGREES)  ) 
GO  TO  1 

END  (L  1.  0.  0.  0.  1) 


c.  Conversion  of  Right  Ascension  and  Declination  from  Equinox  to  Equinox 
Check  Problem 
Output; 

Right  Ascension  and  Declination  Referenced  to  Mean  Equinox  of  Date 
Alpha  =  3.4327915E  02  Degrees 
Delta  =  -7.  9466670E  00  Degrees 

Alpha  =  3.41ili23E  02  Degrees  Delta  =  -1.  0696111E  01  Degrees 
Input: 

Card  1:  X  ].  2* 

Card  2:  F  2428064.  ,  .5,  343.46521,  -7.87047* 

Card  3;  F  2428080.  ,  .5,  341.29838,  -10.621060* 

Right  Ascension  and  Declination  Referenced  to  Mean  Equinox  of  1950.  0 

Alpha  -  3.43465?. IE  02  Degrees 

Delta  =  -  7.  87047G0E  00  Degrees 

Alpha  -  3.4129838E  02  Degrees 

Delta  =  -I.O62IO6OE  01  Degrees 

Input: 

Card  1 ;  X  0 ,  2 * 

Card  2;  F  2428064.  .  .5,  343.27915,  -7.946667* 

Card  3:  F  2428080.  ,  .5,  341.111249,  -10.696111* 


B-28 


I 

i' 


E.  COMPUTATION  OF  RECTANGULAR  GEOCENTRIC  SITE 

COORDINATES  AND  CONVERSION  OF  AZIMUTH  AND  ELEVATION 
TO  RIGHT  ASCENSION  AND  DECLINATION 

a.  Operational  Directory 

Purpose 

To  compute  the  geocentric  site  coordina.te  and  to  convert  aaimuth 
and  elevation  to  right  ascension  and  declination. 

Usage 


Input  -  All  decimal  input  is  read  by  a  modified  DBG  FORTR.AN 
subroutine  which  accepts  variable  length  fields.  All  fields  are  floating  point 
numbers  except  for  starred  fields  which  urc  integers.  Following  is  the  list 
of  input  quantities  in  the  order  in  which  they  must  be  read  into  the  program 
and  then  the  input  for  a  sample  problem. 

’i^Field  1  -  N4,  Control  parameter 

If  N4  1,  right  asc  ension  and  declination  will  be  com.puted 
from  the  corresponding  a7.imuth  and  elevation.. 

If  N4  ^  0,  rightascensionand  declination  will  not  be  computed. 

t-'Field  Z  -  NP,  Control  Parameter  which  mxist  be  equal  to  the 


number  of  cases  to  be  run 


NP  <  1 0 


rield  3  -  </.  ,  geocentric  latitude  of  site  in  degrees  and  decimals 

of  a  degree  (+  if  North,  -  if  South). 

Field  4  -  h,  height  of  site  above  sea  level  in  units  of  Earth's 

equatorial  radius.  (6378.  388  km.  =  equatorial  radius 
of  Earth) 

Field  5  -  k,  geographic  longitude  of  site  in  degrees  and  decimals 
of  a  degree.  (+  if  East,  -  if  West) 

Field  6  -  Whole  number  component  of  Julian  Date. 
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Field  7  -  Decimal  component  of  Julian  Date. 

Field  8  -  Decimal  component  of  corresponding  universal  time. 

NOTE:  If  N4  0,  no  more  input  is  required;  however,  the  input 

must  include  "NP"  sets  of  data,  each  set  of  which  must  be 
composed  of  Fields  3-8. 

If  N4  _>  1,  'then  each  set  of  the  "NP"  sets  must  be  composed 

.  of  Fields  3-10. 

Field  9  -  Elevation  in  degrees  and  decimals  a  degree. 

Field  10  -  Azimuth  in  degrees  and  decimals  of  a  degree. 

Sample  Inputs 
Example  1 


Card 

1-; 

XI,  1  * 

Card 

2. 

F  50. 35, 

023E-6,  4.358, 

2428048. , 

.5,  0, .  25.  46,  209.  35* 

ampie 

2 

Card 

1; 

X  0,  2* 

Card 

2; 

F  53.2, 

.  013E-4,  6.37, 

2428072.  , 

.  5, 

0* 

Card 

3; 

F  55. 2, 

.014E-5,  6.39, 

2428078.  , 

.  5, 

0* 

Output  -  If  N4  <_  0,  only  the  rectangular  geocentric  site  coordi¬ 
nates  will  be  printed  out  in  units  of  Earth's  equatorial  radius. 

If  N4  _>  1,  the  right  ascension  and  declination  corre¬ 
sponding  to  each  site  vector  will  be  printed  out  in  degrees.  Both  site  co¬ 
ordinates  and  angles  will  be  referenced  to  mean  equinox  of  date. 

b..  Computation  of  Rectangular  Geocentric  Site  Coordinates  and 

Conversion  of  Azimuth  and  Elevation  to  Right  Ascension  and  De¬ 
clination 

DAC  PHIPM(IO),  PHIPL(IO),  RM(IO),  GMSTM(IO), 

1  GMSTL(IO),  PHI(IO),  H(10),  BAMDA(IO),  DJM(IO),  DJL(IO),  T(10). 
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BSTM(IO).  BSTL.(10),  SPHIPM{10),  SPHIPJ.(9),  CPHIPM(iO) 
CPHIPL(IO).  X(10).  Y(10),  Z(10) 

DAC  CDELTM(IO),  CDELTI,>(  10),  SDELTM(IO),  SDELTE(IO), 
DELTAM(IO).  DELTAL(IO),  ALPHAM{10),  ALPHAL(IO),  E(10), 
A(10),  SALPHM(IO),  CALPHM(IO),  SALFHL(IO),  CALPHL(IO), 
HAB(iO) 

FORMAT  (15)  I 

RIT  2.  4.  N4,  NP 
IF  (N4)  3,  3,  6 

RIT  2,  4.  (PHI(I),  H(I).  BAMDA(I),  DJM(I),  EJL(I),  T{I),  1=  1,  NP) 
GO  TO  7 

RIT  2.4(PHI(I),  H(I),  BAMDA(I),  DJM(I),  DJL(I),  T(I).  E(I),  A(I),  I 
1,  NP) 

DO  1001  =  1.  NP 
PKIM  =  PHI(I) 

HT  =  H(I) 

DJIM  =  DJM(I) 

DJIE  =  DJL(I) 

BAMDAM  =  BAMDAd) 

TPHIM  =  2.  =:=PHIM  . 

FPHIM  =  4.  -:=PHIM 
SPHIM  =  6.  ’i'PHIM 
TA  =  T(l) 

COMPUTE  THE  GEOCENTRIC  LATITUDE  PHI  PRIME  (I- 1) 

CALL  DPSC(TPHIM,  0.,  STPHIM,  STPHIL,  CTPHIM,  CTPHIL,  0) 
CALL  DPSC(FPHIM,  0.  ,  SFPHIM,  3FPHIL,  CFPHIM,  CFPHIL,  0) 
CALL  DPSC(SPHIM,  0.  ,  SSPHIM,  SSPHIL,  CSPHIM,  CSPHIL,  0) 
CALL  FMPS(STPKIM,  STPHIL,  -695.  6635,  CM,  CL) 

CALL  FMPS(SFPHIM,  SFPHIL,  1.  1751,  DM,  DL) 

CALL  FMPS(SSPHIM,  SSPHIL,  -.0026,  EM.  EL) 

CALL  FAD(CM,  CL,  DM,  DL,  CM,  CL) 


CALL  FAD(CM,  CL,  EM.  EL,  CM,  CL) 

CALL  FDYS(CM.  CL,  3600.  ,  CM,  CL) 

CALL  FADS(CM,  CL,  PHIM,  PHIPM(I),  PHIPL(I)  ) 

COMPUTE  THE  GEOCENTRIC  RADIUS  VECTOR  OF  SITE  R(II-2) 
CALL  FMPS(CTPHIM,  CTPHIL,  I.  683494E-3,  CM,  CL) 

CALL  FMPS(CFPH1M,  CFPHIL,  3.  549E-6,  DM,  DL) 

CALL  FMPS(CSPHIM,  CSPHIL,  8.  OE-9,  EM,  EL) 

CALL  FSB(CM,  CL,  DM,  DL,  CM,  CL) 

CALL  FAD(CM,  CL,  EM,  EL,  CM,  CL) 

CALL  FADS(CM,  CL,  .998320047,  CM,  CL) 

CALL  FADS(CM,  CL,  HT,  RM(I),  RL(I)  ) 

COMPUTE  THE  GREENWICH  MEAN  SIDEREAL  TIME  AT  U.  T. 

(II-3) 

CALL  FSBS(DJIM,  DJIL,  2415020.0,  CM,  CL) 

CALL  FDYS(CM,  CL,  36525.  ,  CM,  CL) 

CALL  SQ(CM,  CL,  CSQM,  CSQL) 

CALL  FMPS(CSQM,  CSQL,  .  0929,  TERM,  TERL) 

CALI.  FMP(CM,  CL,  8640184.,  .542,  TM,  TL) 

CALL  FAD{TERM,  TERL,  TM,  TL,  GMSTM(I),  GMSTL{I)  ) 

CALL  FADS(GMSTM(I),  GMSTL(I),  23925.  836,  GMSTM(I).  GMSTL(I)  ) 
CALL  FDYS(GMSTM(I)  GMSTL{I),  3600.  ,  GMSTM(I.).  GMSTL(I)  ) 
CALL  FSBS(GMSTM(I),  GMSTL(I),  24.,  GMSTM(I),  GMSTL(I)  ) 
IF(GMSTM(I)  -24.)  61,  61,  60 

COMPUTE  THE  LOCAL  SIDEREAL  TLME  (II-4) 

CALL  FDYSfBAMDAM,  0.  15.  ,  CM,  CL) 

CALL  FMPS(  TA,  0.  ,  24.  ,  AM,  AL) 

CALL  FAD(AM,  AL,  CM,  CL,  CM,  CL) 

CALL  FMPS(AM,  AL,  .  0027369,  DiM,  DL) 

CALLFAD(DM,  DL,  CM,  DL,  STxM,  STL) 

CALL  FAD(STM,  STL,  GMSTM(I),  GMSTL(I),  STM,  STL) 

CALL  FMPS(STM,  STL,  15.  ,  BSTM(I),  BSTL(I)  ) 


c 


1 


c 
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(n-5) 

CALL  DPSC(BSTM{I),  BSTL(I),  SLSTM,  SLSTL,  CLSTM,  CLSTL,  0) 
CALL  DPSC(P?nPM(I),  PHIPLd),  SPHIPM(I),  SPHIFL{I) 

CPKIPM(I),  CPHIPLd),  0) 

COMPUTE  RECTANGULAR  COMPONENTS  (II -6) 

CALL  FMP(CPHIPMd),  CPHIPL(I),  CLSTM,  CLSTL,  XM,  XL) 
CALL  FMP(XM,  XL,  RM(I),  RLd),  Xd),  XL) 

CALL  FMP(CPHIPMd),  CPHIPLd),  SLSTM,  SLSTL,  YM,  YL) 

CALL  FlvlP(YM,  YL,  RMd),  RL(l),  Y(I),  YL) 

CALL  FMP{SPHIPM{l),SFHIPLd),  RMd),  RL'I),  Zd),  ZL) 

WOT  10,  5,  (Xd),  Yd),  Z(I),  BSTxM(I),  I  =  1,  NP) 

FORMAT  (IHlbX,  99HREC TaNGULAR  SITE  COORDINATES 
REFERENCED  TO  EQUINOX  OF  DATE  AND  IN  UNITS  OF 
EARTHS  EQUATORIAL  RADIUS/(1H03X,  2HX  =  1PE14..7,  ?X. 

2HY  =  E14.  7,  7X,  2HZ  =  E14.  7,  7X,  20HLOCAL  SIDEREAL  TIME  = 
E14.  7,  8  H  DEGREES)  ) 

CONVERSION  OF  AZIMUTH  AND  ELEVATION  TO  RT.  ASC. 

AND  DEC  (III-  1) 

IF  (N4)  1,1,8 
DO  200  1  =  1,  NP 
EM  =  E(I) 

AM  =  A(I) 

SPHIM  =  SPHIPM(I) 

SPHIL  =  SPHIPL(I) 

CPHIM  =  CPHIPM  (I) 

CPHIL  =  CPHIPL(I) 

CALL  DPSC(EM,  0.  ,  SEM,  SEL,  CEM,  CEL,  0) 

CALL  DPSC(AM,  0.  ,  SAM,  SAL,  CAM,  CAL,  0) 

CALL  FMP(SPHIM,  SPHIL,  SEM,  SEL,  CCM,  CCL) 

CALL  FMP(CPHIM,  CPHIL,  CEM,  CEL,  DM,  DL) 

CALL  FMP(DM,  DL,  CAM,  CAL,  DM,  DL) 
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CALL  FAD(DM,  DL,  CCM,  CCL,  SDELTM(I),  SDELTL(I)  ) 

CALL  SQ(SDELTIvl(I),  SDELTL{I),  SDLTSM,  SDLTSL) 

CALL  FSB(1.  ,  0.  .  SDLTSM,  SDLTSL,  CDLTSM,  CDLTSL) 

CALL  DFSQRT(CDLTSM,  CDLTSL,  CDELTM(I),  CDELTL(I)  ) 
CALL  DPASIN(SDELTM(I},  SDELTL(I),  DELTAM(I),  DELTAL(I), 

1  KZ) 

CALL  FMPS(DELTAM(I),  DELTAL(I),  57.  2957795,  DELTAM(n 
1  DELTAL(I)  ) 

C  COMPUTE  RIGHT  ASCENSION  (III-2) 

CALL  FMP(CEM,  CEL.  -SAM,  -SAL,  DM,  DL) 

CALLFDY(DM,  D.L,  CDELTM(I),  CDELTL(I),  SINHAM,  SINHAL) 
CALL  FMP(SEM,  SEL,  CPHIM,  CPHIL,  CM,  CL) 

CALL  FMP(CEM,  CEL,  SHPIM,  SPHIL,  DM,  DI.) 

CALL  FMP(DM,  DL,  CAM,  CAL,  DM,  DL) 

CALLFSB(CM,  CL,  DM,  DL,  CM,  CL) 

CALL  FDY(CM,  CL,  CDELTM(I),  CDELTL(I),  COSHAM,  COSHAL) 
CALLDPASIN(SINHAM,  SINHAL,  HAM,  HAL,  KZ) 

IF  (COSHAM)  20,  2  1,  2  1 

20  IF  (SINHAM)  22,  23,  23 

22  CALL  FSB(PIM,  PIL,  HAM,  HAL,  HAM,  HAL) 

GO  TO  25 

23  CALL  FSB(PIM,  PIL,  HAM,  HAL,  HAM,  HAL) 

C  PIM,  PIL,  ARE  TO  BE  READ  IN  ON  BINARY  CARDS 

GO  TO  25 

21  IF  (SINHAM)  24,  25,  25 

24  CALL  FADITPIM,  TPIL,  HAM,  HAL,  HAM,  HAL) 

25  CALL  FMPS(HAM,  HAL,  57.2957795,  HAM,  HAL) 

HAB(I)  =  HA.M 

200  CALL  FSB(BSTM(I).  BSTL(I),  HAM,  HAL,  ALPHAM(I),  ALPHAL(I) 
WOT  10.  103,  (DELTAM(I),  ALPHAM(I),  HAB(I),  I  =  1,  NP) 

103  FORMAT  (1H06X,  61HR1GHT  ASCENSION  AND  DECLINATION 


i 


> 


[ 


1 


1 


i 
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REFERENCED  TO  EQUINOX  OF  DATE/ /(1K06X,  6HDELTA  = 

2  1PE14.  7,  16H  DEGREES  AEPHA  =  E14.  7,  1X20H  DEGREES  HOUR 

3  ANGLE  =  E  14.  7,  8  HDEGREES)  ) 

110  GO  TO  1 

END  (1,  1,  0.  0.  0,  1) 

c.  Computation  of  P..ectangular  Geocentric  Site  Coordinates  and 
Conversion  of  Azimuth  and  Elevation  to  Right  Ascension  and 
Declination 

Check  Problem 
Output; 

Rectangular  Site  Coordinates  Referenced  to  Equinox  of  Date 

Units  of  Earth's  Equatorial  Radius 

Local  Sidereal  Time  ~  9-  2112108E  00  Degrees 

X  =  6.  2516253E-Q1  Y  =  1.  0137977E-0  1  Z  =  7.  7  127761E- 0 1 

Right  Ascension  and  Declination  Referenced  to  Equinox  of  Date 

Delta  =  -9. ''^-94895E  00  Degrees  , 

Alpha  -1.  7721417E  01  Degrees 
Hour  Angle  =  2.  6932628E  01  Degrees 

Input: 

Card  1:  X  1,  1* 

Card  2:  F  50.  7985278,  .  7023213E  -  6,  4.  3583333,  2428072.  ,  5,  0* 
Card  3:  F  25.5638611,  209.69025* 

F.  EPHERMERIS  COMPUTATION  PROGRAM 
a.  Operational  Directory- 
Purpose 

The  program  computes  the  rectangular  geocentric  site  coordinates 
at  Time  T  referenced  to  the  mean  equinox  of  date;  these  coordinates  are 
reduced  to  the  mean  equinox  of  1950.  0.  The  topocentric  distance  observed 
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at  time  T  is  computed  from  the  site  coordinates  and  the  rectangular  geoce*'  ^  i, 
coordinates  of  the  observed  body.  The  right  ascension  and  de  lination  oi  ^  ’ 
observed  body  at  time  T  are  computed  referenced  to  the  mean  'iquinox  oi 
1950.  0  and  reduced  to  mean  equinox  of  date.  The  azimuth  and  elevation 
of  the  observed  body  at  time  T  are  computed. 

Usage 

All  decimal  input  is  read  by  a  modified  DBC  FOl  FRAN 
subroutine  which  accepts  variable  lengtij  fields.  All  fields  arf  floating  pr:i. 
numbers  excep*  for  starred  whirh  inri»o*'rK  I'ollow  iig  is  the  I;"-' 

of  input  quantities  in  the  order  in  which  they  are  read  into  the  ^  r''r:rarr'' 

Field  1  -  T,  Whole  number  component  of  Julian  Date. 

Field  Z  -  T,  Decimal  Component  of  Julian  Date. 

Field  3  -  X  Rectangular  geocentric  coordinates  of  observed 

Field  4  -  Y  body  at  time  T  in  units  of  E'arth's  equatorial  radius 

Field  5  -  Z  and  reference  to  the  mean  equinox  of  1950.  0. 

(6378.  388  km.  =  equatorial  radius  ol  Earth) 

Field  6  -  <p,  Geocentric  latitude  of  site  in  degree;  and  decimals 

ol  a  degree  (+  if  North,  -  if  South). 

Field  7  -  h,  Height  of  site  above  sea  level  in  units  of  Earth's 

equatorial  radivis. 

Field  8  -  Geographic  longitude  of  site  in  degrees  and  decimals 

of  a  degree  (+  if  East,  -  if  West). 

Field  9  -  Decimal  compo.nen*-  of  the  universal  Lime  corresj^on^ 

to  the  Julian  Date  in  Fields  1  and  2. 

Sample  Input: 

Example 

Card  1:  F  2428072.  ,  .  5,  2.3358772,  -  3709524: ,;0j 
Card  2:  F  50.  7985278,  .  70232 1 3E-6,  4  3583333,-0'' 


Outout: 


The  rectangular  geocentric  site  coordinates  in  v  its  of  Eart 


uM 
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